Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
1 1 1
proj(x,y,z,s+u,t,0)
----------
y = f(x)
7 1 2 3 4 5 6 7 1 1 1 1 1 1 1
a
0 16711680 2 0 1
b
0 16711680 2 0 1
c
0 16711680 2 0 1
d
0 16711680 2 0 1
m
0 16711680 2 0 1
p
0 16711680 2 0 1
q
0 16711680 2 0 1
----------
0 = f(x,y)
0
----------
Point
22 8 9 0 0 0 0 0 1 3 4 5 6 0 0 0 0 7 0 0 0 0 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
2 0 2
P
(f(0,0,0)).x
(f(0,0,0)).y
Sqrt5


t 0.1
0 0
16777215 13631696 14745599 1 0 0 4 1 0
3 0 4
Q
2 0 2
Q
(f(0,0,0)).x
(f(0,0,0)).y
Sqrt5 +2


t 0.1
0 0
16777215 16769279 16777215 1 0 0 1 1 0
3 0 2
R
0 0 1
S
0 0 1
T
0 0 1
U
0 0 1
V
0 0 1
A
2 0 2
A
(qf(0.5a(1+cos72),-0.5asin72,b)).x
(qf(0.5a(1+cos72),-0.5asin72,b)).y
1


t 0.1
0 1
16777215 0 16777215 1 0 0 1 1 0
1 0 4
B
2 0 2
B
(qf(0.5(a+c),0,0.5(b+d))).x
(qf(0.5(a+c),0,0.5(b+d))).y
1


t 0.1
0 1
16777215 8421504 16777215 1 0 0 1 1 0
1 0 4
C
2 0 2
C
(qf(0.5(c+m),-0.5n,0)).x
(qf(0.5(c+m),-0.5n,0)).y
1


t 0.1
0 1
16777215 16711680 16777215 1 0 0 1 1 0
1 0 3
D
2 0 2
D
(qf(0.5(c+m),0.5n,0)).x
(qf(0.5(c+m),0.5n,0)).y
1


t 0.1
0 1
16777215 16711680 16777215 1 0 0 1 1 0
1 0 3
E
2 0 2
E
(qf(0.5(m+p),0.5(n+0.5),-0.5(d+b))).x
(qf(0.5(m+p),0.5(n+0.5),-0.5(d+b))).y
1


t 0.1
0 1
16777215 48896 16777215 1 0 0 1 1 0
1 0 2
F
0 0 1
G
0 0 1
H
0 0 1
I
0 0 1
J
2 0 2
J
(qf(p,0,-b)).x
(qf(p,0,-b)).y
1


t 0.1
0 1
16777215 255 16777215 1 0 0 1 1 0
1 0 2
K
0 0 1
L
0 0 1
M
0 0 1
N
0 0 1
O
1 0 2
O
0
0
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0
3 0 1
----------
Segments
0
----------
paramater
14
0.850651 0
1 1 0.1 0
1.11352 0
1 1 0.1 0
1.37638 0
1 1 0.1 0
0.262866 0
1 1 0.1 0
1.11352 0
1 1 0.1 0
0.809017 0
1 1 0.1 0
0.688191 0
1 1 0.1 0
2.464 0
1 1 0.002 0
0 0
1 1 10 1
20 0
1 1 10 1
360 0
1 1 0.1 0
0 0
1 1 0.2 0
0.5 0
1 1 0.037037037037037 1
5 0
1 1 0.1 1
1 1 1
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
2 4 2 1 1 0 0 1 0 0 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
0 1
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 877 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval
7 1 1
High,Low
6.38844272844273 -5.46290862290862
----------
ScaleY
Vlow,VHigh,label
0 877 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0
NUmber,Base,Linterval
7 1 1
High,Low
5.49381467181467 -6.38462548262548
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 0 1 12 0 0 0 0 0 12 0
----------
Yvalue
1 1
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
9
y1
y2
y3
y4
y5
y6
y7
y8
y9
----------
Panel Position
0 0 0 0 457 0 0 0 0 0 0 0 1 0 1 0
1
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 14 0 0 0

23
30 small balls of radius r cover
vone big ball of radius R where 
each small ball touches four 
other small balls as shown in 
the figure. 

Show that 
{R}=(square root of 5){r}.

{s}:{z}-rotation
{t}:{y}-rotation
#HideScript//sub
#on q,s,t,v change
#Call(Draw)

#//Draw
#Calc
#ClrAImg
#for k:=1 to 5
#u:=72*k
#calc
#next
#refresh
----------
11
4 24 1
4 152 1
4 225 1
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
4 24 0
----------