Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 0 ---------- UserFunction 0 ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 1 2 3 4 5 0 0 6 7 8 9 10 11 12 13 14 0 0 0 0 0 15 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 P 1 0 1 P cos(-@) sin(-@) 0 t 0.1 1 0 255 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 Q 1 0 1 Q a+cos(-@+Pi/4) sin(-@+Pi/4) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 R 1 0 1 R 2a+cos(-@+Pi/2) sin(-@+Pi/2) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 S 1 0 1 S 3a+cos(-@+3Pi/4) sin(-@+3Pi/4) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 T 1 0 1 T 4a+cos(-@+Pi) sin(-@+Pi) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 U 0 0 1 V 0 0 1 A 1 0 1 A -4a+cos(-@-Pi) sin(-@-Pi) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 B 1 0 1 B -3a+cos(-@-3Pi/4) sin(-@-3Pi/4) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 C 1 0 1 C -2a+cos(-@-Pi/2) sin(-@-Pi/2) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 D 1 0 1 D -a+cos(-@-Pi/4) sin(-@-Pi/4) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 E 1 0 1 E 5a+cos(-@+5Pi/4) sin(-@+5Pi/4) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 F 1 0 1 F 6a+cos(-@+3Pi/2) sin(-@+3Pi/2) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 G 1 0 1 - -5a+cos(-@-5Pi/4) sin(-@-5Pi/4) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 H 1 0 1 H -6a+cos(-@-3Pi/2) sin(-@-3Pi/2) 0 t 0.1 0 0 16711680 16711680 16777215 1 0 0 1 1 0 0 1 0 1 0 I 1 0 1 O 0 0 0 t 0.1 0 0 0 16711680 16777215 1 0 0 1 1 0 0 3 0 1 0 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 13 1 1 1 16711680 16777215 3 0 1 0 0 0 1 2 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 3 0 1 0 0 0 2 3 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 3 0 1 0 0 0 3 4 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 3 0 1 0 0 0 4 5 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 3 0 1 0 0 0 8 9 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 3 0 1 0 0 0 9 10 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 3 0 1 0 0 0 10 11 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 3 0 1 0 0 0 11 1 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 3 0 1 0 0 0 5 12 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 3 0 1 0 0 0 12 13 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 3 0 1 0 0 0 14 8 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 3 0 1 0 0 0 15 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 1 14737663 16777215 2 0 1 0 0 0 1 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 1.1 0 1 1 0.1 1 1 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 7.7558087 0 1 1 0.314159265358979 1 2 1 0 1 1 0.1 1 0 1 1 88 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 1 4 2 1 1 0 1 1 0 1 0 32 0 DrawMode SegmentShowSync 1 1 AfterImageColorNo, CanAImg,MaxAimgN0 3 1 3001 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 914 水面 x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 1 0 0 0 1 NUmber,Base,Linterval,numberR 1 1 1 1 High,Low 5.06557480327559 -4.93442519672441 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 1 0 NUmber,Base,Linterval,NumbeerR 7 1 1 7 High,Low 5.196725 -4.803275 ---------- 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 112 85 0 0 0 0 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 0 0 14 0 0 0 27 水の表面に生ずる波 水の各成分は、 鉛直面内で円運 動に近い運動を している。 {@}を動かすと、  波が動きます。 増減速度スライダーを変えて 周期を調整してみましょう。 {a}を変えると、  波の形が変わります。 #//Amination No1 = # for @:= Pi/2 to 15Pi/2 step Pi/32 # draw # next #//Amination No2 < # for a:=3.4 to 1.1 step -0.1 # for @:= Pi/2 to 5Pi/2 step Pi/32 # draw # next @ # next a ---------- 11 4 27 1 4 207 1 4 331 1 6 32 1 6 32 1 6 32 1 6 32 1 6 32 1 4 25 0 4 25 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 ----------