Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 0 ---------- UserFunction 4 1 2 3 4 1 1 1 1 (a+bcosx)cosy-Sqrt(b^2-a^2) sinxsiny (a+bcosx)siny+Sqrt(b^2-a^2) sinxcosy asinx proj(x,y,z,s,t,d) ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 5 6 7 0 0 0 0 2 3 4 8 9 10 0 0 0 0 0 0 0 0 1 1 1 1 1 1 1 1 1 1 1 0 0 0 1 1 1 1 1 1 1 1 1 P 6 0 2 P (f1((b+acosp)cos12p ,(b+acosp)sin12p,asinp)).x (f1((b+acosp)cos12p ,(b+acosp)sin12p,asinp)).y 0 0 360 p 0.1 0 0 16777215 255 16777215 1 0 0 1 1 0 0 3 0 1 0 Q 6 0 2 Q (f1((b+acos16n)cosn ,(b+acos16n)sinn,asin16n)).x (f1((b+acos16n)cosn ,(b+acos16n)sinn,asin16n)).y 0 0 360 n 0.1 0 0 16777215 48896 16777215 1 0 0 1 1 0 0 1 0 1 0 R 6 0 2 R (f1(f(12v,v),g(12v,v),h(12v))).x (f1(f(12v,v),g(12v,v),h(12v))).y 0 0 360 v 0.1 0 0 16777215 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 S 0 0 1 T 0 0 1 U 0 0 1 V 0 0 1 A 1 0 2 A (f1((b+acosp)cosq ,(b+acosp)sinq,asinp)).x (f1((b+acosp)cosq ,(b+acosp)sinq,asinp)).y 0 t 0.1 0 0 255 16711680 16777215 0 0 0 1 1 0 0 1 2 1 0 B 1 0 2 B (f1((b+acosm)cosn ,(b+acosm)sinn,asinm)).x (f1((b+acosm)cosn ,(b+acosm)sinn,asinm)).y 0 t 0.1 0 0 48896 16711680 16777215 1 0 0 1 1 0 0 1 2 1 0 C 1 0 2 C (f1(f(u,v),g(u,v),h(u))).x (f1(f(u,v),g(u,v),h(u))).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 3 2 1 0 D 6 8 2 {x} (f1(@,0,0)).x (f1(@,0,0)).y 0 0 @ @ 0.2 0 0 16777215 0 16777215 1 0 0 1 1 0 0 3 0 1 0 E 6 9 2 {y} (f1(0,@,0)).x (f1(0,@,0)).y 0 0 @ @ 0.1 0 0 16777215 0 16777215 1 0 0 1 1 0 0 3 0 1 0 F 6 1 2 {z} (f1(0,0,@)).x (f1(0,0,@)).y 0 0 @ @ 0.1 0 0 16777215 0 16777215 1 0 0 1 1 0 0 3 0 1 0 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 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 0 3 0 1 0 ---------- Segments 0 ---------- paramater 14 2 0 1 1 0.1 0 1 5 0 1 1 0.1 0 2 1 0 1 1 0.1 1 0 10 0 1 1 1 1 3 5760 0 1 1 0.1 0 4 360 0 1 1 0.1 0 5 360 0 1 1 0.1 0 6 4320 0 1 1 1 0 7 30 0 1 1 5 1 8 -330 0 1 1 5 1 9 4320 0 1 1 10 0 10 360 0 1 1 10 0 11 7.5 0 1 1 0.1 0 12 7.5 0 1 1 0.5 1 0 1 1 0 ---------- 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 1019 x x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,numberR 7 1 1 7 High,Low 10.611852085547 -10.3984571928035 ---------- 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 8.67614536484648 -9.9668471675919 ---------- ScaleS SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed 1 1 0 1 18 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 32 422 84 164 117 0 0 1 0 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 0 0 12 0 0 0 88 P,Q,Rの表示スイッチを押して 表示(入切)を入れ変える。 #// #s:=30 #t:=-330 #d:=10 #draw #HideObj(A,B,C) #draw #// #s:=45 #t:=-360 #d:=7 #draw #HideObj(A,B,C) #//B > #HideObj(A,B,C) #s:=30 #t:=-330 #d:=10 #draw #s:=32.5 #t:=-335 #d:=9.5 #draw #s:=35 #t:=-340 #d:=9 #draw #s:=37.5 #t:=-345 #d:=8.5 #draw #s:=40 #t:=-350 #d:=8 #draw #s:=42.5 #t:=-355 #d:=7.5 #draw #s:=45 #t:=-360 #d:=7 #draw #s:=45 #t:=-360 #d:=7 #draw #//(0)初期化(消去) #ClrAImg #HideObj(A,B,C) #//(1)水平な螺旋で描く A,P #p:=0 #q:=0 #ClrAImg(A) #ShowObj(A) #draw #for p:=0 to 360 step 0.5 #q:=12*p #draw #next p #//(2)垂直な螺旋で描く B,Q #m:=0 #n:=0 #ClrAImg(B) #ShowObj(B) #draw #for n:=0 to 360 step 0.5 #m:=16*n #draw #next m #//(3)ヴィラソーの円の螺旋で描く C,R #v:=0 #u:=0 #ClrAImg(C) #ShowObj(C) #draw #for v:=0 to 360 step 0.5 #u:=12*v #draw #next v ---------- 11 4 27 1 7 35 0 7 35 0 7 35 0 7 35 0 7 35 0 7 35 0 7 35 0 7 35 0 7 35 0 3 20 0 ---------- Table SECTION RowNo, ColumnNo 0 10 200 Table Data 60 60 60 60 60 60 60 60 60 60 ---------- SimpleMemo SECTION 0 ----------