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


t 0.1
0 0 0
255 255 255 0 1 0 1 1 0
6 0 1 1 0 0 0
R
6 0 1
R
rot(J,N,c+120)
0
360
t 2


t 0.1
0 0 0
36608 36608 36608 0 1 0 1 1 0
6 0 1 1 0 0 0
S
6 0 1
S
rot(H,N,-t)
0
360
t 1


t 0.1
0 0 0
16711680 8421504 8421504 0 0 0 3 1 0
4 0 3 1 0 0 0
T
6 0 1
T
rot(I,N,-t-120)
0
360
t 2


t 0.1
0 0 0
255 16777215 16777215 0 0 0 1 1 0
4 0 4 1 0 0 0
U
6 0 1
U
rot(J,N,-t+120)
0
360
t 1


t 0.1
0 0 0
36608 16777215 16777215 0 0 0 1 1 0
4 0 1 1 0 0 0
V
1 1 1
昇交点を１２０度ずらした衛星を３機打ち上げる
(-2,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
A
1 1 1
<Red><B>日本</B></Red>
(cos36cos(140+t),cos36sin(140+t),sin36)


s 0.1


t 0.1
0 0 0
255 16711680 16711680 1 0 0 1 1 0
1 0 1 1 0 0 0
B
1 1 1
<Red><B>日本上空</B></Red>
4.8OA


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
1 1 1
<Blue><B>日本</B></Blue>
rot(A,N,-t)


s 0.1


t 0.1
0 0 0
16711680 16711680 16711680 0 0 0 1 1 0
1 0 1 1 0 0 0
D
1 1 1
<Blue><B>日本上空</B></Blue>
4.8OC


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
<RED><B>赤道面</B><RED>
(4.5,4.5,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
F
1 1 1
静止軌道を、傾斜角約４０度の軌道に変える
(-2,2,5)


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
G
7 0 1

(cosucosv,cosusinv,sinu)
-90
90
u 10
0
360
v 20
0 0 0
16777215 16761024 16761024 1 0 0 1 1 0
3 0 1 1 0 0 0
H
6 0 1
H
4.8(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
0 0 0 1 0 0 2 1 0
4 0 1 1 0 0 0
I
6 0 1
I
4.8(cos(t+b+120),(asin(t+b+120)+Sqrt(a^2-1))cosk,(asin(t+b+120)+Sqrt(a^2-1))sink)
0
360
t 2


t 0.1
0 0 0
0 16777215 16777215 0 0 1 1 1 0
4 0 1 1 0 0 0
J
6 0 1
J
4.8(cos(t+b-120),(asin(t+b-120)+Sqrt(a^2-1))cosk,(asin(t+b-120)+Sqrt(a^2-1))sink)
0
360
t 2


t 0.1
0 0 0
0 16777215 16777215 0 0 1 1 1 0
4 0 1 1 0 0 0
K
1 1 1
３機のどれかは、日本上空にいる
(-2,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
L
1 1 1
静止衛星の周期と同じ、２３時間５６分
(4,-2,5)


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
M
1 1 1
日本から見ると８の字の軌道。日本の上空滞在時間増加の為に、円軌道から極方向に長い楕円軌道へ
(-3.22, 2.70, 5.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
N
1 1 1
<B>北極方向</B>
(0,0,6)


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
3
3 0 1 0 0
1 1 255 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 0 0 0
1 1 16711680 16777215 2
1 1 16711680 16777215 1
0 
252 11 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
----------
paramater
14
1 0
1 1 0.001 1 1
140 0
1 1 5 1 2
140 0
1 1 5 1 3
10 0
1 1 0.01 1 0
0 0
1 1 2 1 4
2.5 0
1 1 0.5 1 8
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 5 1 0
292.5 0
1 1 5 0 5
212 0
1 1 0.1 0 6
170 0
1 1 0.1 0 7
1 1 80
----------
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 , AxesColor
2 2 12 0 1 4 1
ViewPoint
-150 21 30 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 614 0 427 0 0 0 0 0 0 1 0 1 0
----------
MEMO SECTION
Style, Color, BGcolor , Size, PositionX, positionY
3 1 0 14
100
準天頂衛星「みちびき」
初号機軌道投入記念
軌道説明ファイル


アニメスピード
{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 720 step m
#draw
#next

#//初期化
#b:=140
#c:=140
#k:=40
#t:=0
#HideObj(C,D,L2,F,P,R,S,T,U,H,I,J,V,K,M)
#ShowObj(A,B,L1,L3,L,Q)
#SetViewPoint(-150,21,30,27)
#draw

#//軌道の説明（自動１）
#ShowObj(A,B,L1,H,F,L,L3)
#HideObj(C,D,L2,P,Q,R,S,T,U,I,J,V,K,M)
#b:=140
#c:=140
#k:=40
#t:=0
#SetViewPoint(-150,21,30,27)
#for t:=0 to 2*360 step 3*m
#k := 0
#draw
#next
#for t:=0 to 3*360 step 3*m
#k := t/27
#draw
#next
#HideObj(F)
#ShowObj(V)
#Call(R)
#c:=15
#wait(1000)
#Call(宇宙固定)

#//宇宙固定
#b:=125
#c:=15
#HideObj(C,D,L2,H,S,T,U,I,J,F,V,L,M)
#ShowObj(A,B,L1,L3,P,Q,R,K)
#Call(R)
#Call(R)

#//宇宙固定（天の北極から）
#b:=125
#c:=15
#k:=40
#SetViewPoint(90,90,30,27)
#HideObj(C,D,L2,H,S,T,U,I,J,F,V,L,M)
#ShowObj(A,B,L1,L3,P,Q,R)
#Call(R)
#Call(R)

#//地球固定（自動２）
#a:=1
#b:=140
#k:=40
#SetViewPoint(140,36,30,27)
#HideObj(A,B,C,L1,H,I,J,P,Q,R,F,V,L,M,K)
#ShowObj(D,L2,L3,S,T,U)
#Call(R)
#Call(R)
#ShowObj(M,Q)
#wait(1000)
#for t:=0 to 720 step 3*m
#a:=1+(t/720)*0.01
#draw
#next
#Call(R)
#HideObj(M)
#SetViewPoint(99,4,30,27)
#Call(R)

#//日本上空を見上げる
#b:=140
#k:=40
#HideObj(A,B,C,L1,L2,L3,H,I,J,P,Q,R,F,V,L,M)
#ShowObj(D,S,T,U)
#SetViewPoint(-40,-20,0.7,100)
#Call(R)
#Call(R)

#//２日間動くだけ
#Call(R)
----------
11
4 24 1
4 120 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
----------