Grapes/win 2.8 [Don't Edit] 3.14 ---------- BGstretchOn BGfile 1 ---------- UserFunction 2 1 2 1 1 x+2x^2 x-2(1-x)^2 ---------- y = f(x) 0 ---------- 0 = f(x,y) 0 ---------- Point 22 0 0 0 0 0 0 0 1 3 4 5 6 7 8 9 10 11 0 0 0 0 2 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 0 1 A 0 0.53802490234375 0 t 0.1 1 0 147455 16711680 16777215 1 0 0 1 1 0 0 1 1 1 B 1 0 2 B 90147 1.132 0 t 0.1 0 0 147455 16711680 16777215 1 0 1 1 1 0 0 6 0 1 C 1 0 2 C 89412 1.112 0 t 0.1 0 0 147455 16711680 16777215 1 0 1 1 1 0 0 6 0 1 D 1 0 2 D 91176 1.114 0 t 0.1 0 0 147455 16711680 16777215 1 0 1 1 1 0 0 6 0 1 E 1 0 2 E 91471 1.091 0 t 0.1 0 0 147455 16711680 16777215 1 0 1 1 1 0 0 6 0 1 F 1 0 2 F 89118 1.094 0 t 0.1 0 0 147455 16711680 16777215 1 0 1 1 1 0 0 6 0 1 G 1 0 2 G 90441 1.094 0 t 0.1 0 0 147455 16711680 16777215 1 0 1 1 1 0 0 6 0 1 H 1 0 2 H 90294 1.069 0 t 0.1 0 0 147455 16711680 16777215 1 0 1 1 1 0 0 6 0 1 I 1 0 2 I 88382 1.057 0 t 0.1 0 0 16777215 16711680 16777215 1 0 1 1 1 0 0 1 0 1 J 1 0 2 J 92353 0.984 0 t 0.1 0 0 16777215 16711680 16777215 1 0 1 1 1 0 0 1 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 ---------- Segments 1 5 1 1 8421504 12632256 2 0 1 0 16 17 0 0 0 0 0 0 0 0 0 ---------- paramater 14 3.9 0 1 1 1 1 0 44 0 1 1 0.1 1 0 0.04 0 1 1 0.02 1 1 1 0 1 1 0.1 1 0 1 0 1 1 0.1 1 0 10800 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 0 0 1 1 0.1 1 0 0.2 0 1 1 0.1 1 0 1 1 80 ---------- KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle 1 4 2 1 1 0 0 1 0 0 0 DrawMode SegmentShowSync 1 0 AfterImageColorNo, CanAImg 0 1 circleMode 1 ---------- ScaleX Vlow,VHigh,label 0 883 t x AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible 1 0 1 0 1 NUmber,Base,Linterval 8 1 1 High,Low 114921.682436121 -14931.2587403496 ---------- ScaleY Vlow,VHigh,label 0 680 x(t) AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible 1 0 1 1 NUmber,Base,Linterval 7 1 1 High,Low 1.29999613139907 -0.0999915313990748 ---------- 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 ---------- Yvalue 1 1 ---------- Iinterval Svalue Evalue sliceNo 1 -1 1 1 40 10 Dfuncno Efuncno AreaQ 1 0 0 ---------- Yvalue Function List 9 y1 y2 y3 y4 y5 y6 y7 y8 y9 ---------- Panel Position 1 1 1 1 0 1 87 1 0 0 0 0 1 0 1 0 1 ---------- PetaMEMO SECTION Style, Color, BGcolor , Size, PositionX, positionY 3 0 0 12 0 0 0 40 {1/f} ゆらぎ(間欠カオス法)の描画 x(t)<0.5の時  x(t+1) = x(t) + 2(x(t))2 x(t)>=0.5の時 x(t+1) = x(t) - 2(1-x(t))2 c を変化させることによって 色を変えることができます。 (0c に相当します。 #hidescript #on c change #//ゆらぎの描画 #A.y:=rnd(32768)/32768 #for n:=0 to 10^5 step 100 # A.x:=n #if A.y<0.5 then # A.y:=f(A.y) #else # A.y:=g(A.y) #if A.y<0.005 then A.y:=rnd(32768)/32768 #if A.y>0.999 then A.y:=rnd(32768)/32768 # SetColor(A,hsl(c,1,(1-A.y/2))) # SetColor(B,hsl(c,1,(1-A.y/2))) # SetColor(C,hsl(c,1,(1-A.y/2))) # SetColor(D,hsl(c,1,(1-A.y/2))) # SetColor(E,hsl(c,1,(1-A.y/2))) # SetColor(F,hsl(c,1,(1-A.y/2))) # SetColor(G,hsl(c,1,(1-A.y/2))) # SetColor(H,hsl(c,1,(1-A.y/2))) # wait(200) # draw #next n #//初期化 # A.x:=0 # A.y:=rnd(32768)/32768 #calc #ClrAImg ---------- 11 117 7 0 4 24 1 4 24 1 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 4 24 0 ---------- Table SECTION RowNo, ColumnNo 0 10 Table Data 60 60 60 60 60 60 60 60 60 60 ---------- SimpleMemo SECTION 0 ----------