Grapes/win 2.7 [Don't Edit] ---------- BGstretchOn BGfile 0 ---------- UserFunction 5 1 0 0 2 3 1 1 1 1 1 (aSqrt(1+x^2 /b^2 ),x) proj(x,y,z,s,t,d) f1(xroll(z),y) ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 0 0 0 1 2 3 4 8 9 10 0 0 0 0 0 0 0 0 0 5 6 7 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 1 2 2 {x} (f1(k ,0,0)).x (f1(k ,0,0)).y 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 1 0 1 T 1 0 2 (f1(-k, 0,0)).x (f1(-k, 0,0)).y 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 1 0 1 U 1 4 2 {y} (f1(0,k,0)).x (f1(0,k,0)).y 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 1 0 1 V 1 0 2 V (f1(0 ,-k,0)).x (f1(0 ,-k,0)).y 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 1 0 1 A 6 0 2 A (f2((u,v) ,p-q)).x (f2((u,v) ,p-q)).y 0 360 p 2 0 0 12 1 0 1 0 0 1 1 0 1 0 1 B 6 0 2 B (f2((u,-v),p+q)).x (f2((u,-v),p+q)).y 0 360 p 2 0 0 12 1 0 1 0 0 1 1 0 1 0 1 C 6 0 2 C (f2((ucosq,0),p)).x (f2((ucosq,0),p)).y 0 360 p 2 0 0 12 1 0 1 0 0 1 1 0 1 0 1 D 0 0 1 E 0 0 1 F 0 0 1 G 0 0 1 H 0 0 1 I 0 0 1 J 0 0 1 K 0 0 1 L 0 0 1 M 1 9 2 {z} (f1(0 ,0,k)).x (f1(0 ,0,k)).y 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 1 0 1 N 1 0 2 N (f1(0,0 ,-k)).x (f1(0,0 ,-k)).y 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 1 0 1 O 1 2 2 O 0 0 0 t 0.1 0 0 0 1 0 1 0 0 1 1 0 3 0 1 ---------- Segments 4 3 1 1 4 0 1 0 1 0 5 4 0 0 0 0 0 0 0 0 0 3 1 1 4 0 1 0 1 0 7 6 0 0 0 0 0 0 0 0 0 3 1 1 4 0 1 0 1 0 21 20 0 0 0 0 0 0 0 0 0 1 1 1 12 0 1 1 1 0 8 9 0 0 0 0 0 0 0 0 0 ---------- paramater 14 1 0 1 1 0.1 1 1.5 0 1 1 0.1 1 1 0 1 1 0.1 1 36 0 1 1 1 1 0 0 1 1 0.1 1 363 0 1 1 0.1 1 270 0 1 1 5 1 70 0 1 1 5 1 -30 0 1 1 10 1 20 0 1 1 5 1 5 0 1 1 1 1 6 0 1 1 1 1 30 0 1 1 5 1 9 0 1 1 1 1 1 1 8 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 2 4 2 1 1 0 0 1 0 0 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 0 1 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 980 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 0 0 0 0 0 NUmber,Base 7 1 High,Low 9.81081095434472 -9.98716884363508 ---------- ScaleY Vlow,VHigh,label 0 880 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 0 NUmber,Base 6 1 High,Low 8.78365572472295 -8.99412205305482 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed 1 1 0 1 18 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 479 0 316 479 0 0 0 0 0 0 1 0 1 0 1 ---------- MEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 4 0 13 0 0 0 28 直線を回転させて双曲面 を描くことができます。  {u} : 回転半径  {v} : 高さ  {q} : 上下のずれ角 で形が決まります。 #//初期化 #p := 0 #Calc #ClrAImg #//描く #p:=0 #Calc #ClrAimg #for p:=0 to 270 step 5 #Draw #next p #hidescript//陰で描く #on s,t,d,u,v,q change #p:=0 #Calc #ClrAimg #for p:=0 to 270 step 5 #Calc #next p #Refresh ---------- 11 4 24 1 6 33 0 6 33 0 6 33 0 6 33 0 6 33 0 6 33 0 6 33 0 6 33 0 6 33 0 4 24 0 ----------