混凝土搅拌车拌筒及螺旋线参数化设计编译链接成功,无法执行,求高人

晓狼

NUMBER/r(3),h(3),bt(3),i,st,stm(3),a1,a3,p1,p3
- C/ h, Z* W- \: p6 O$$ 1-定义变量
ENTITY/ax,ps1(1001),ps2(1200),m(3),g(3),sl1,sl2,pt(4),pt0(2)
- T7 q1 v6 C) p/ U8 Qpds1:  
, {. D3 W4 S& L  T$ d( _) B+ ?$$ 2-生成输入参数的对话框
7 I4 J4 C9 r$ J+ A/ {& EPARAM/'请输入罐体和螺旋线参数:',$
, c2 U! `+ F, q5 X'前锥小端半经:',r(1),$
! H1 S9 }, w7 h* s$ M'前锥高度:',h(1),$
0 I# U) o3 o- i2 l" T, S5 S4 b'中柱半经:',r(2),$
'中柱高度:',h(2),$
'后锥小端半经:',r(3),$
8 g# S, v' l% u  D% S'后锥高度:',h(3),$
1 z+ p0 _: y- _& _' Z# D/ u  ]'前锥螺旋角:',bt(1),$
# `: T1 r3 J+ w'中段螺旋角:',bt(2),$
% c% v6 b% T+ f2 [2 q; v. Z! O'后锥螺旋角:',bt(3),resp
JUMP/pds1:,stop1:,,resp
: }2 T7 U- k! V4 h& k8 Tax=LINE/(pt0(1)=POINT/0,0,0),(pt0(2)=POINT/0,0,600)
$$ 3-生成罐体
g(1)=LINE/(pt(1)=POINT/r(1),0,0),(pt(2)=POINT/r(2),0,h(1))
g(2)=LINE/pt(2),(pt(3)=POINT/r(2),0,(h(1)+h(2)))
% p0 P# b; `' ~/ O; e4 d# `7 cg(3)=LINE/pt(3),(pt(4)=POINT/r(3),0,(h(1)+h(2)+h(3)))
m(1)=REVSRF/g(1),AXIS,ax,0,360
. g, R; n' K! i) Am(2)=REVSRF/g(2),AXIS,ax,0,360
m(3)=REVSRF/g(3),AXIS,ax,0,360
a1=ATANF((r(2)-r(1))/h(1))
$$ 4-计算基本参数
a3=ATANF((r(3)-r(2))/h(3))
/ l  v3 z' C) E  |1 d0 v$ sp1=(r(2)-r(1))/h(1)*COSF(a1)*COSF(bt(1))/SINF(bt(1))
3 X- ^2 ~+ `1 fp3=(r(3)-r(2))/h(3)*COSF(a3)*COSF(bt(3))/SINF(bt(3))
! }5 i: E" k; ostm(1)=LOGF((r(2)-r(1))/r(1)+1)/p1
stm(2)=stm(1)+h(2)/r(2)*SINF(bt(2))/COSF(bt(2))
stm(3)=stm(2)+LOGF((r(3)-r(2))/r(2)+1)/p3
3 ?$ K# D- E: Qi=1
! V* Y* g1 X% r8 B7 U4 ?4 PSTR1:
$$ 5-计算曲线上点的坐标
: x8 H6 B7 K  J- z' r/ \5 g. w  bst=(i-1)*stm(3)/1000
3 a9 @; N! k/ i3 B) [1 uIFTHEN/st<=stm(1)
xc=r(1)*EXPF(p1*st)*COSF(st*180/3.14159)
0 s( n1 R" [, S" [6 e/ j) Uyc=r(1)*EXPF(p1*st)*SINF(st*180/3.14159)
& W- v& r2 c! T( r# fzc=r(1)*h(1)/(r(2)-r(1))*(EXPF(p1*st)-1)
ELSEIF/stm(1)<st AND st<=stm(2)
xc=r(2)*COSF(st*180/3.14159)
yc=r(2)*SINF(st*180/3.14159)
zc=r(2)*COSF(bt(2))/SINF(bt(2))*(st-stm(1))+h(1)
ELSEIF/stm(2)<st AND st<=stm(3)
xc=r(2)*EXPF(p3*(st-stm(2)))*COSF(st*180/3.14159)
yc=r(2)*EXPF(p3*(st-stm(2)))*SINF(st*180/3.14159)
zc=r(2)*h(3)/(r(3)-r(2))*(EXPF(p3*(st-stm(2)))-1)+h(1)+h(2)
. A" L2 ]  @! u7 C0 fENDIF
ps1(i)=POINT/xc,yc,zc
$$ 6-生成螺旋线
( l- P% R6 Q1 nps2(i)=POINT/-xc,-yc,zc
i=i+1
  k6 x$ g; D' S4 u$ D# d1 H# D! O. rIF/st<=stm(3),JUMP/STR1:
" L3 F( C( U3 p9 O, r" j# F, psl1=SPLINE/ps1(1..(i-1))
sl2=SPLINE/ps2(1..(i-1))
BLANK/ax,g,pt,pt0,ps1(1..(i-1)),ps1(1..(i-1))
$$结束处理
stop1:
HALT

晓狼

ps1(i)=POINT/xc,yc,zc  在UG中执行时说这行 子脚本阵列超过范围  不懂!!!
0 V7 H$ B: Z/ d- |* r5 m: ops2(i)=POINT/-xc,-yc,zc这行同上
& {2 ], [# H' y, l  m/ E) si=i+1
: e3 Y' t3 C+ l+ y5 EIF/st<=stm(3),JUMP/STR1:
" X* b' }2 ~6 [- }sl1=SPLINE/ps1(1..(i-1))这行说是尺寸不匹配
sl2=SPLINE/ps2(1..(i-1))
, ]' D0 C$ ?1 s5 yBLANK/ax,g,pt,pt0,ps1(1..(i-1)),ps1(1..(i-1))

新手求解,还有在哪能看每一步执行的结果
9 c" L; m0 f- B5 m8 t2 c/ \4 l* t
具体怎样操作

sinowill

看看