Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1 
----------
UserFunction
2 1 2 1 1
2Pimx
2sinx
----------
y = f(x)
1 1 1
1
0 16711680 2 1 1
----------
0 = f(x,y)
0
----------
Point
22 3 4 5 6 0 0 0 1 2 0 0 0 0 0 0 0 0 0 0 0 0 7 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
A.x
s
0


t 0.1
0 0
255 16711680 16777215 0 1 0 1 1 0 0
6 0 1 0
Q
6 0 2
Q
(rot(B,O,-t)).x
(rot(B,O,-t)).y
0
0
t
t 0.002
0 0
255 255 16777215 0 1 0 1 1 0 0
6 0 6 0
R
1 0 2
R
Q.x
0
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
2 0 1 0
S
1 7 2
{Sqrt!{n}=}!{Cells(n)}
(R-(0,0.5)).x
(R-(0,0.5)).y
0


t 0.1
0 0
16777215 16711680 16777215 1 0 0 1 1 0 0
1 0 1 0
T
0 0 1
U
0 0 1
V
0 0 1
A
1 0 2
A
1
0
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
3 0 1 0
B
1 0 2
B
A.x
1
0


t 0.1
0 0
16711680 16711680 16777215 0 0 0 1 1 0 0
1 0 1 0
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 0
----------
Segments
4
1 1 1 255 16777215 6 0 0 0 0
0 1
8 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 1 1 0 16777215 2 0 0 0 0
6 {Sqrt(!{n+1})
252 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 1 1 16711680 16777215 6 0 1 0 0
0 
4 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
1 3 1 8421504 16777215 2 0 0 0 0
0 
3 2 0 0 0 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
1 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
440 0
1 1 0.1 1 0
1 0
1 1 1 1 0
0.46364761 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
0 0
1 1 0.05 1 1
0 0
1 1 0.05 1 2
0 0
1 1 0.05 1 0
7 0
1 1 0.1 1 0
0 0
1 1 0.1 1 0
3 0
1 1 1 1 0
1 1 80
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 4 2 1 1 0 1 1 0 1 0 32 0
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg,MaxAimgN0
2 1 3001
circleMode
1
----------
ScaleX
Vlow,VHigh,label
0 1444 x
x
AxesVisible,ScaleVisible,Svaluevisible,AddDegreeLetter,ScaleGuidevisible
1 0 1 0 1
NUmber,Base,Linterval,numberR
3 1 1 3
High,Low
4.69674740484429 -0.299792387543253
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
1 0 1 1 0
NUmber,Base,Linterval,NumbeerR
2 1 1 2
High,Low
1.49896193771626 -1.49896193771626
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
0 1 0 1 24 0 2 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 0 0 33 0 0 0 0 0 0 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 11 0 0 0

78
{Sqrt(n)}の作図方法の説明


［初期化］
で {n=1} がセットされる。
［次を求める］
で{Sqrt(n+1)}が求まる。


「編集」>「テーブル」を表示した
まま実行ボタンを押してください


SOUND=!{m/440}
#//初期化
#n:=1
#ClrAllCells
#Call(CL)
#Cells(1):=1
#A.x := Cells(n)
#SetArea(-0.3,1.5,4.7,-1.5)
#m:=440
#draw

#//次を求める
#Call(UP)
#Cells(n+1):=[OB]
#Call(DN)
#inc(n)
#Call(CL)
#A.x := Cells(n)
#draw

#//少しずつ進む
#if s = 0 then
#    Call(UP)
#    Cells(n+1):=[OB]
#else
#    Call(DN)
#    inc(n)
#    Call(CL)
#    A.x := Cells(n)
#    draw
#endif

#HideScript//CL
#HideObj(L1,L2,L4,Q)
#s:=0
#t:=0

#HideScript//UP
#Call(SO)
#ShowObj(L1,P,L3)
#Wait(500)
#for s:=0 to 1 step 0.02
#draw
#next s
#Call(SO)
#wait(500)
#ShowObj(L2,L4,Q)

#HideScript//DN
#Call(SO)
#HideObj(P)
#Wait(500)
#p:=arg(A,O,B)
#For t:=0 to p step 0.015*p
#Draw
#Next
#Call(SO)
#wait(500)

#HideScript//SO
#play(x,0,0.07,0.5g(g(g(fx))))

#//音のＳＷ
#if m=440 then m:=0 else m:=440
#draw


----------
11
4 27 1
4 60 1
4 159 1
4 213 1
6 41 0
6 41 0
6 41 0
6 41 0
6 41 0
6 41 0
4 24 0
----------
Table SECTION
RowNo, ColumnNo
1 10 200
Table Data
1
data	1									


60 60 60 60 60 60 60 60 60 60
----------
SimpleMemo SECTION
1
2008GRAPES講習会用gps
----------