1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
clear
window 0
defaults
!
define\constants
generate phi 0,,3*pi 100
a=0.2
b=0.5
x=a*phi-b*sin(phi)
y=a-b*cos(phi)
f=2*phi^2-3*phi+5
set colormap rainbow
get colormapsize csize
c=int(f*csize/max(f)+0.99)
scales\-messages min(x) max(x) min(y) max(y)
set
plotsymbol 0
%xnumbersheight 3
%ynumbersheight 3
curvelinewidth 15
%xupperaxis 80
graph\axesonly
do i = [1:len(phi)-1]
set curvecolor c[i]
graph\overlay [x[i];x[i+1]] [y[i];y[i+1]]
enddo
scales\-messages 0 1 min(f) max(f)
generate tmp min(f),,max(f) len(phi)
set
%xloweraxis 85
%xupperaxis 90
xaxison 0
yaxison 1
graph\axesonly\yonright
do i = [1:len(phi)-1]
set curvecolor c[i]
graph\overlay [0.5;0.5] [tmp[i];tmp[i+1]]
enddo
set
%textheight 6
textfont 'Arial Black'
textalign 1
textinteractive 0
%xtextlocation 10
%ytextlocation 90
text 'Prolate Cycloid'
|
