Grapes/win 2.8
[Don't Edit] 3.14
----------
BGstretchOn BGfile
0 
----------
UserFunction
2 1 2 1 1
1/X
T+crot(X,v)
----------
y = f(x)
0
----------
0 = f(x,y)
0
----------
Point
22 4 5 0 3 1 0 0 6 7 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
6 0 2
P
(f(A)).x
(f(A)).y
0
-1
1
s 0.02
0 1
16777215 255 16777215 1 0 0 1 1 0 0
3 0 2 0
Q
6 0 2
Q
(f(B)).x
(f(B)).y
0
-1
1
s 0.02
0 1
16777215 255 16777215 1 0 0 1 1 0 0
3 0 1 0
R
0 0 1
S
1 2 2
T'
(f(T)).x
(f(T)).y
0


t 0.1
0 0
255 16711680 16777215 1 1 0 1 1 0 0
3 0 1 0
T
1 3 2
<B>T</B>
0
0
0


t 0.1
0 0
16711680 16711680 16777215 1 1 1 1 1 0 0
2 0 2 0
U
0 0 1
V
0 0 1
A
6 0 2
A
(g(s,t)).x
(g(s,t)).y
0
-1
1
s 2
0 1
16777215 16711680 16777215 1 0 0 1 1 0 0
2 0 2 0
B
6 0 2
B
(g(t,s)).x
(g(t,s)).y
0
-1
1
s 2
0 1
16777215 16711680 16777215 1 0 0 1 1 0 0
3 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
0
----------
paramater
14
0 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 0
1 1 0.5 1 1
0.5 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.031 0
1 1 0.001 0 2
1 0
1 1 0.1 0 3
1 0
1 1 0.1 1 0
0 0
1 1 0.0872664625997165 1 4
3.054327 0
1 1 0.1 1 0
1 0
1 1 0.1 1 0
1 1 64
----------
KakuMode ScanWidth LogMode ThetaMode AreaMode capStyle
1 1 2 1 1 0 1 1 1 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
1 1 1 0 1
NUmber,Base,Linterval,numberR
6 1 1 6
High,Low
4.8929699622868 -4.93498702696051
----------
ScaleY
Vlow,VHigh,label
0 914 y
AxesVisible,ScaleVisible,Svaluevisible,ScaleGuidevisible
1 1 1 1 0
NUmber,Base,Linterval,NumbeerR
6 1 1 6
High,Low
5.00080571177017 -4.96449674753744
----------
ScaleS
SquareQ AreaRectify PsMesh AxisWidth FontSize AxisOn letterCenterShowPOsition ShowEquation AxisType PolorNum Areafixed
1 1 2 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 393 0 120 0 0 0 0 1 1 1 0
1
----------
PetaMEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 0 0 12 0 0 0

69
正方形を複素平面上に、
{w=1/z}で
写した図形です。
パラメーター{v}は、
正方形の傾きです。


自分で、{f(x,y)}を定義
しても面白いね。例えば、
{f(x,y)=X+1/X} とか・・・。


<L><blue>点<B>Ｔ</B>を</blue> </L>ドラッグしよう。
下の「Anime」ボタンも押してみよう。
#HideScript
#On T,c,v Change
#Call(Write)
#end

#HideScript//Write
#Calc
#ClrAImgData
#for t:=-1 to 1 step 0.4
#Calc
#Next t
#Draw

#//初期化１（傾き ０°）
#ClrAImg
#T:=(0,0)
#c:=1
#v:=0
#Call(Write)

#//初期化２（傾き４５°）
#ClrAImg
#T:=(0,0)
#c:=1
#v:=Pi/4
#Call(Write)

#//Anime
#ClrAImg
#T:=(0,0)
#Call(Write)
#for d:=0 to 1 step 0.1
#T:=(d,d)
#Call(Write)
#next d
#for @:=Pi/4 to Pi step Pi/36
#T:= Sqrt(2) d roll(@)
#Call(Write)
#next @
#for d:=-Sqrt(2) to -2 step -0.1
#T:=(d,0)
#Call(Write)
#next d
#for d:=0 to -2 step -0.1
#T:=(-2,d)
#Call(Write)
#next d
#for d:=-2 to 0 step 0.1
#T:=(d,d)
#Call(Write)
#next d
#for d:=0 to 0.501 step 0.05
#T:=(0,d)
#Call(Write)
#next d


----------
11
4 27 1
4 162 1
4 253 1
4 26 0
4 26 0
4 26 0
4 26 0
4 26 0
4 26 0
4 26 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
----------