- 积分
- 0
- 注册时间
- 2010-12-24
- 仿真币
-
- 最后登录
- 1970-1-1
|
Def
jmmc
Huangt=20.
an1=75.
jiao=-an1
z3=280.
x1=35.
y2=300.
zz=z3 + huangt
ang1=float (pi *an1/180.)
x6=float (z3+x1*tan(ang1))/(tan(an1))
array a0 (3) a1 (3) a2 (3)
a3 (3) a4 (3)
a5 (3)
a6 (3)
a7
(3)
a0 (1) =0.0,a0(2)=0.0,a0(3)= 0.0
a1 (1) =x1, a1(2)=0.0,a1(3)=0.0
a2 (1) = 0.0,a2(2)=y2, a2(3)=0.000
a3 (1) =0.0,A3(2)=0.0,A3(3)=z3
a4 (1) = A1 (1),A4(2)= a2(2), A4(3)= 0.000
a5 (1) = A2 (1),
A5(2)= a2(2),A5(3)= A3(3)
a6(1)=x6,
A6(2)= 0.0,A6(3)= A3(3)
a7(1) = A6(1),A7(2)= A5(2),A7(3)= A5(3)
loop n0 (1,9)
红色的地方是不是有问题,拜求懂得高人解答!
|
|