Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1 黒.jpg
----------
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 3 5 0 0 0 0 0 1 4 0 0 0 0 0 0 0 0 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
1 0 2
P
s
t



t 0.1
1 0
197631 16711680 16777215 1 0 0 1 1 0 0
1 0 1
Q
1 0 2
Q
u
v



t 0.1
1 0
16753020 16711680 16777215 1 0 0 1 1 0 0
2 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 2
A
0
0.182586669921875
0


t 0.1
1 0
197631 16711680 16777215 0 0 0 1 1 0 0
1 1 1
B
1 0 2
B
7400
0.0366838525320299
0


t 0.1
1 0
16775414 16711680 16777215 0 0 0 1 1 0 0
1 1 1
C
0 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
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
0
----------
paramater
14
30 0
1 1 1 1 0
44 0
1 1 0.1 1 0
1 0
1 1 0.02 1 1
0.62 0
1 1 0.02 1 6
1 0
1 1 0.1 1 0
7400 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
59353 0
1 1 0.1 0 2
0 0
1 1 0.1 0 3
111124 0
1 1 0.1 0 4
8 0
1 1 0.1 0 5
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 32
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg,MaxAimgN0
0 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 662 t
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval
8 1 1
High,Low
114437.02251926 299.09148477704
----------
ScaleY
Vlow,VHigh,label
0 510 x(t)
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
0 0 0 0 0
NUmber,Base,Linterval
7 1 1
High,Low
9.93516555105431 -0.03462525105431
----------
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 62 108 8000 0 0 0 0 1 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 12 0 0 0

55
<L><B>{1/f} ゆらぎ(間欠カオス法)による星の描画</B></L>
x(t)<0.5の時　  x(t+1) = x(t) + 2(x(t))<sup>2</sup>
x(t)>=0.5の時　x(t+1) = x(t) - 2(1-x(t))<sup>2</sup>


<B><Red>c ,d</Red></B>を変化させることによって
色を変えることができます。
(0<c<1,0<d<1)
ﾏﾆｭｱﾙのhsl(h,s,l)参照のこと。
hが<B><Red>c ,d</Red></B>に相当します。


中断するには、F1キーを押してください。
#hidescript
#on c,d change

#//星の描画
#A.y:=rnd(32768)/32768
#B.y:=rnd(32768)/32768
#for n:=0 to 10^5 step 100
# A.x:=n
# B.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)))
#if B.y<0.5 then
# B.y:=f(B.y)
#else
# B.y:=g(B.y)
#if B.y<0.005 then B.y:=rnd(32768)/32768
#if B.y>0.999 then B.y:=rnd(32768)/32768
#    SetColor(B,hsl(d,1,(1-B.y/2)))
#for a:=0 to 30
#s:=rnd(120000)
#t:=rnd(10)
#u:=rnd(120000)
#v:=rnd(10)
#calc
#next a
#    SetColor(P,hsl(c,1,(1-A.y/2)))
#    SetColor(Q,hsl(d,1,(1-B.y/2)))
#draw
#    wait(200)
#ClrAImg
#next n

#//初期化
# A.x:=0
# A.y:=rnd(32768)/32768
#calc
#ClrAImg
----------
11
88 7 0
4 24 1
345 461 0
3 18 0
3 18 0
3 18 0
3 18 0
3 18 0
3 18 0
3 18 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
----------