Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1
----------
UserFunction
2 1 2 1 1
proj(x,y,z,s,t,d)
d((xcoss+ysins)cost+zsint)-w (x^2+y^2+z^2)
----------
y = f(x)
0
----------
0 = f(x,y)
0
----------
Point
22 0 0 0 0 0 0 0 2 3 4 5 6 7 0 0 0 0 8 9 10 11 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
P
0 0 1
Q
0 0 1
R
0 0 1
S
0 0 1
T
0 0 1
U
0 0 1
V
0 0 1
A
1 9 2
A
(f(0,b(1-k),ck)).x
(f(0,b(1-k),ck)).y
0
t 0.1
0 0
0 8421504 16777215 0 0 0 1 1 0 0
2 0 2 0
B
1 9 2
B
(f(0,bk,c(1-k))).x
(f(0,bk,c(1-k))).y
0
t 0.1
0 0
0 8421504 16777215 0 0 0 1 1 0 0
2 0 2 0
C
1 9 2
C
(f(a(1-k),0,ck)).x
(f(a(1-k),0,ck)).y
0
t 0.1
0 0
0 8421504 16777215 0 0 0 1 1 0 0
2 0 2 0
D
1 9 2
D
(f(ak,0,c(1-k))).x
(f(ak,0,c(1-k))).y
0
t 0.1
0 0
0 8421504 16777215 0 0 0 1 1 0 0
2 0 2 0
E
1 9 2
E
(f(a(1-k),bk,0)).x
(f(a(1-k),bk,0)).y
0
t 0.1
0 0
0 8421504 16777215 0 0 0 1 1 0 0
2 0 2 0
F
1 9 2
F
(f(ak,b(1-k),0)).x
(f(ak,b(1-k),0)).y
0
t 0.1
0 0
0 8421504 16777215 0 0 0 1 1 0 0
2 0 2 0
G
0 0 1
H
0 0 1
I
0 0 1
J
0 0 1
K
1 0 2
K
((g(a,b,c,Sqrt(3)/6)>0)A).x
((g(a,b,c,Sqrt(3)/6)>0)A).y
0
t 0.1
0 0
255 8421504 16777215 0 0 0 1 1 0 0
3 0 2 0
L
1 4 2
L
((g(a,0,0,1-k)>0)f(a(1-k),bk,0)).x
((g(a,0,0,1-k)>0)f(a(1-k),bk,0)).y
0
t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
M
1 4 2
M
((g(0,b,0,1-k)>0)f(0,b(1-k),ck)).x
((g(0,b,0,1-k)>0)f(0,b(1-k),ck)).y
0
t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
N
1 4 2
N
((g(0,0,c,1-k)>0)f(ak,0,c(1-k))).x
((g(0,0,c,1-k)>0)f(ak,0,c(1-k))).y
0
t 0.1
0 0
255 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
O
1 0 2
O
0
0
0
t 0.1
0 0
16777215 8421504 16777215 1 0 0 1 1 0 0
3 0 2 0
----------
Segments
5
7 1 2 16769248 16777215 2 1 1 0 0
0
8 9 11 10 12 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 1 1 16711680 16777215 2 1 1 0 0
0
18 9 11 10 12 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0
9 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0
10 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 16711680 16777215 2 1 1 0 0
0
20 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
1 0
1 1 2 0 1
1 0
1 1 2 0 2
1 0
1 1 2 0 3
8 0
1 0 1.4142135623731 1 4
1 0
1 1 0.1 1 0
60 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
107 0
1 1 5 1 5
22 0
1 1 2 1 6
360 0
1 1 2 1 0
10 0
1 1 2 1 0
24 0
1 1 1 1 0
0 0
1 1 0.05 1 7
1 1 40
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
2 4 2 1 1 0 1 1 0 1 0 32 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg,MaxAimgN0
0 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 914 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,numberR
7 1 1 7
High,Low
1.07529411764706 -1.07529411764706
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval,NumbeerR
6 1 1 6
High,Low
1.07921151257301 -1.0713767227211
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
0 1 0 1 12 0 0 0 0 0 12 0 0 0
----------
Yvalue
1 1
----------
Iinterval
Svalue Evalue sliceNo
1 -1
1 1
40 10
Dfuncno Efuncno AreaQ
1 0 0
----------
Yvalue Function List
6
y1
y2
y3
y4
y5
y6
----------
Panel Position
0 0 0 0 0 52 172 85 0 0 0 0 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 16711680 0 12 0 0 0
72
視点について
水平角:s
立体角:t
原点からの距離:d
切断の位置:{0<=k<=0.5}
#hidescript//DrawFig
#on s,t,d,k change
#if k < 0 then
# k := 0
# refresh
# end
#endif
#if k > 1/2 then
# k := 1/2
# refresh
# end
#endif
#a := -1
#b := 1
#c := 1
#calc
#ClrAimgData
#c := -1
#calc
#b := -1
#calc
#c := 1
#calc
#a := 1
#calc
#c := -1
#calc
#b := 1
#calc
#c := 1
#calc
#refresh
#//1/4回転する
#for n := 0 to 29
# s := s + 3
# call(DrawFig)
# wait(10)
#next
#//AutoDraw
#k := 0
#s := 20
#call(DrawFig)
#wait(200)
#call(1/4回転する)
#for k := 0.05 to 0.335 step 0.0125
# call(DrawFig)
# wait(20)
#next
#wait(200)
#call(1/4回転する)
#for k := 0.34 to 0.5 step 0.0125
# call(DrawFig)
# wait(10)
#next
#k := 0.5
#call(DrawFig)
#wait(200)
#call(1/4回転する)
#wait(600)
#for n := 0 to 60
# s := s - 3
# k := 0.5-n/120
# call(DrawFig)
# wait(10)
#next
----------
11
4 27 1
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
6 36 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
0 10 200
Table Data
60 60 60 60 60 60 60 60 60 60
----------
SimpleMemo SECTION
0
----------