Grapes/3D 1.21
[Don't Edit]
----------
UserFunction
0
----------
Point
22 3 8 14 9 13 15 16 1 6 12 10 11 0 4 2 0 0 0 0 0 7 5 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 1
<B>1</B>
rot(H,N,c)
0
360
t 2


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 2 1 0 0 0
Q
6 0 1
Q
OP/[OP]
0
360
t 1


t 0.1
0 0 0
16711680 16711680 16711680 1 0 0 1 1 0
2 0 2 1 0 0 0
R
6 0 1
R
OS/[OS]
0
360
t 1


t 0.1
1 0 0
16711680 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
S
6 1 1
<L><B>みちびき</B></L>
rot(H,N,-t)
0
360
t 1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
2 0 1 1 0 0 0
T
6 0 1
T
(cos36cos(140+v),cos36sin(140+v),sin36)
-360
0
v 1


t 0.1
0 0 0
36608 36608 36608 0 0 0 1 1 0
3 0 2 1 0 0 0
U
1 0 1
U
Q


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
4 0 1 1 0 0 0
V
1 1 1
<L><B>日本上空</B></L>
nOT


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
A
6 0 1

(cos36cos(140+t),cos36sin(140+t),sin36)
0
360
t 1


t 0.1
0 0 0
36608 36608 36608 1 0 0 1 1 0
3 0 2 1 0 0 0
B
1 1 1
<L><B>日本上空</B></L>
nOA


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 1 0 0 1 1 0
1 0 1 1 0 0 0
C
6 0 1
C
(cosv,sinv,0)
-180
180
v 1


t 0.1
0 0 0
16777215 255 255 1 0 0 1 1 0
3 0 2 1 0 0 0
D
1 1 1
<L><B>日本の上空を追いかける。</B></L>
(-0.6,-1.7, 3.00)


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
E
1 1 1
<L><B>日本上空にとどまる。</B></L>
(0,0,2.5)


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 0 0 0 1 1 0
3 0 1 1 0 0 0
F
0 0 1
G
7 0 1
]
(cosucosv,cosusinv,sinu)
-90
90
u 5
-180
180
v 5
0 0 1
16777215 16772846 16761024 1 0 0 1 1 0
3 0 1 1 0 0 0
H
6 1 1
<B>みちびき</B>
n(cos(t+b),(asin(t+b)+Sqrt(a^2-1))cosk,(asin(t+b)+Sqrt(a^2-1)) sink)
0
360
t 2


t 0.1
0 0 0
16711680 0 0 1 0 0 2 1 0
1 0 1 1 0 0 0
I
0 0 1
J
0 0 1
K
0 0 1
L
0 0 1
M
0 0 1
N
1 1 1
<B>北極方向</B>
(0,0,3)


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
O
1 0 3
O
(0,0,0)


s 0.1


t 0.1
0 0 0
16777215 16711680 16711680 1 0 0 1 1 0
3 0 1 1 0 0 0
----------
Segments
5
3 0 1 0 0
1 1 52992 16777215 2
1 1 16711680 16777215 1
0 
252 9 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 0 1 0 0
1 1 0 16777215 2
1 1 16711680 16777215 1
0 
252 21 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 0 1 0 0
1 1 16761024 16777215 2
1 1 16711680 16777215 1
0 
252 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 0 0 0 0
1 1 16711680 16777215 1
1 1 16711680 16777215 1
0 
252 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
3 0 0 0 0
1 1 36608 16777215 2
1 1 16711680 16777215 1
0 
252 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
----------
paramater
14
1.015 0
1 1 0.001 1 1
140 0
1 1 5 1 2
0 0
1 1 5 0 3
10 0
1 1 0.01 1 0
40 0
1 1 2 1 4
2 0
1 1 0.5 1 8
3 0
1 1 0.1 0 9
40 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 5 1 0
0 0
1 1 5 1 5
0 0
1 1 0.1 0 6
0 0
1 1 0.1 0 7
1 1 64
----------
KakuMode LogMode AreaMode
2 2 1 0 0 1
DrawMode SegmentShowSync
1 0
AfterImageColorNo, CanAImg
2 1
----------
ScaleS
Vlow,VHigh
-5.6504854368932 5.42826321467098
-5.47270765911542 5.60604099244876
MeshMode , Axiswidth , Sfontsize , Axismode
2 2 12 0 1 4
ViewPoint
-150 25 15 27 0 0 0 1 0
----------
ViewPosition
5
30 20 25 30
-70 20 25 30
60 20 25 30
-90 90 25 30
-90 0 25 30
----------
Panel Position
0 0 0 506 0 0 0 0 0 0 1 0 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 14
88
準天頂衛星「みちびき」
初号機軌道投入記念
軌道説明ファイル
{a}:楕円軌道の係数
{k}:軌道面の傾斜角度


アニメスピード
{0.5<=m<=10}
<RED>{Esc}</RED>キーでストップ
#hidescript//h
#on a,m change
#if a<=1 then a:=1
#draw

#hidescript//R
#for t:=0 to 360 step m
#draw
#next

#//初期化
#ClrAImg
#b:=140
#c:=0
#t:=0
#HideObj(S,D,E,T,Q,R,U,V,L4,L5)
#ShowObj(A,B,H,Q,L1,L2,L3)
#SetViewPoint(-150,25,15,27)
#draw
#ClrAImg

#//軌道の説明（自動解説）
#SetViewPoint(-150,25,15,27)
#HideObj(D,E)
#for t:=0 to 2*360 step m
#draw
#next t
#ShowObj(D)
#Wait(2000)
#HideObj(D)
#for t:=0 to 360 step m
#SetViewPoint(t/3-150,25,15,27)
#draw
#next t
#v:=viewH
#for t:=0 to 360 step m
#SetViewPoint(t/2+v,25,15,27)
#draw
#next t
#ShowObj(E)
#Wait(2000)
#v:=viewH
#for t:=0 to 2*360 step m
#SetViewPoint(t+v,25,15,27)
#draw
#next t
#u:=viewD
#for p:=1 to 40
#SetViewPoint(t+v,21,u-0.2*p,27)
#draw
#next
#u:=viewD
#ShowObj(U)
#for t:=0 to 2*360 step m
#SetViewPoint(t+v,25,u,27)
#draw
#next t
#wait(1000)
#v:=0
#u:=0
#ClrAImg
#ShowObj(T,R,T,V,L2,L4,L5,S)
#HideObj(A,Q,H,B,U,L1,L3)
#ClrAImg
#draw
#for t:=0 to 3*360 step m
#draw
#next t

#//地球を固定
#HideObj(A,Q,H,B,U,E,L1,L3)
#ShowObj(T,R,T,V,L2,L4,L5,S)
#v:=0
#u:=0
#ClrAImg
#for t:=0 to 360 step m
#draw
#next t
----------
11
4 24 1
4 208 1
4 188 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

----------
SimpleMemo SECTION
0
----------