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 ----------