Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 1 ---------- UserFunction 0 ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 0 0 0 0 0 0 0 1 2 3 4 5 0 0 0 0 0 0 0 0 0 6 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 3 2 A 0 0 0 t 0.1 0 0 16711680 16711680 16777215 1 0 1 1 1 0 0 2 0 1 0 B 1 3 2 B (A+roll(@)).x (A+roll(@)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 C 1 3 2 C (rot(A,B,-108)).x (rot(A,B,-108)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 D 1 3 2 D (rot(A,E,-108)).x (rot(A,E,-108)).y 0 t 0.1 0 0 48896 16711680 16777215 0 0 0 1 1 0 0 2 0 1 0 E 1 3 2 E (A+roll(@+36)).x (A+roll(@+36)).y 0 t 0.1 0 0 16711680 16711680 16777215 0 0 0 1 1 0 0 1 0 1 0 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 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 1 7 1 1 255 14737663 2 1 1 0 0 0 8 9 10 11 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 ---------- paramater 14 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 -5 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 16 0 1 1 0.1 1 0 2 0 1 1 1 1 2 32 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 74 0 1 1 0.1 1 0 468 0 1 1 0.1 1 0 3 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 0 0 1 1 36 0 1 1 0 1 1 0.1 1 0 1 1 1 ---------- 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 4.80116670600282 -5.4684962153455 ---------- ScaleY Vlow,VHigh,label 0 914 y AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 0 0 0 0 0 NUmber,Base,Linterval,NumbeerR 7 1 1 7 High,Low 5.47920145266744 -4.8900872073129 ---------- 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 518 52 0 85 0 0 0 0 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 0 3 9 0 0 0 157 TurnLeft : 点Aを中心に36度の左回り TurnLeft : 点Dを中心に36度の右回り UNDO : 操作の取り消し（何度でも） 点Aをドラッグすると5角形が移動します。 点Aをドラッグすると近くにある点に吸い付きます。 データはテーブルに保存されます ◎このファイルは左まわりのみ有効 ５角形を左回りに１周以上させた後に、 各【StepAuto】ボタンは有効です。 １週目の形は凸である必要はない。 その例は、ｓｅｔBです。 #hidescript//SetData # inc(v) # Cells(v,1) := x # Cells(v,2) := A # Cells(v,4) := C # Cells(v,6) := D #//TurnLeft #inc(@,36) #draw #call(SetData,1) #//TurnRight #A := rot(A,D,-36) #dec(@,36) #draw #call(SetData,-1) #//Undo #A := (Cells(1,2),Cells(1,3)) #@ := 0 #Calc #ClrAimg #dec(v) #for u := 2 to v # A := (Cells(u,2),Cells(u,3)) # inc(@, 36*Cells(u)) # Calc #next #refresh #hidescript//FitJustPosition #on A change #t := 0 #for u := 1 to v # X := (Cells(u,2),Cells(u,3)) # inc(t, 36*Cells(u)) # if [AX] < 0.3 then A := X # Y := X + roll(t) # if [AY] < 0.3 then A := Y # Y := rot(X,Y,-108) # if [AY] < 0.3 then A := Y # Y := X + roll(t+36) # if [AY] < 0.3 then A := Y # Y := rot(X,Y,-108) # if [AY] < 0.3 then A := Y #next #Call(SetData,0) #// #A := O #@ := 0 #v := 0 #draw #ClrAimg #ClrAllCells #v := 0//テーブルデータのカウント #Call(SetData,0) #//setA #Call() #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnRight) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnRight) #//setB #Call() #Call(TurnRight) #Call(TurnRight) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnRight) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnRight) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnRight) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnRight) #Call(TurnLeft) #//set(n) #Call() #for m := 1 to n #Call(Stright1) #next #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #for m := 1 to n+1 #Call(Stright1) #next #Call(TurnLeft) #Call(TurnLeft) #Call(TurnLeft) #Call(TurnRight) #//【1StepAuto】 #p := 0 #q := 1 #for s :=1 to v-1 #F := (Cells(s,4),Cells(s,5)) #if A=F then p := s #next #F := (Cells(p,4),Cells(p,5)) #G := (Cells(p,6),Cells(p,7)) #if CD=FG then q := -1 #if q=-1 then Call(TurnRight) else Call(TurnLeft) #//【16StepAuto】 #for m := 1 to 16 #Call(【1StepAuto】) #next #hidescript//Stright1 #Call(TurnLeft) #Call(TurnRight) #hidescript//D #on n change #if n<0 then n := 0 ---------- 11 4 27 1 4 90 1 4 135 1 4 162 1 4 25 0 4 25 0 4 25 0 4 25 0 4 25 0 4 25 0 4 24 0 ---------- Table SECTION RowNo, ColumnNo 1 10 200 Table Data 1 data 0 0 0 1.30901699437495 0.951056516295154 0.5 1.53884176858763 60 60 60 60 60 60 60 60 60 60 ---------- SimpleMemo SECTION 5 Explanation of Table 　　　　１　　　　２　　　　３　　　　４　　　５ 　　　　６　　　　７ (左右ＳＷ)（Ａ．ｘ）（Ａ．ｙ）（Ｃ．ｘ）（Ｃ． ｙ）（Ｄ．ｘ）（Ｄ．ｙ） ----------