Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
1 
----------
UserFunction
0
----------
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 1 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
1 0
1 1 0.1 1 0
1 0
1 1 1 1 0
0.61547971 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 96
----------
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.71305555555556 -0.300833333333333
----------
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.58884665890157 -1.58884665890157
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
0 1 0 1 12 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 10 0 0 0

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

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

<RED><B>「編集」>「テーブル」を表示した
まま実行ボタンを押してください</B></RED>
#HideScript//CL
#ShowObj(P,S,L3)
#HideObj(L1,L2,L4,A,B,Q,R)
#s:=0
#t:=0

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

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

#//初期化
#n:=1
#ClrAllCells
#Call(CL)
#Cells(1):=1
#A.x := Cells(n)
#draw

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


----------
11
4 27 1
6 41 0
6 41 0
6 41 0
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
4
2008GRAPES講習会用



----------