RationalDMIS 2020条件语句/跳转语句/DO循环_Java

DECL/intgr,num,run,runc

runc = PROMPT/'amount of parts to check?'


Run=ASSIGN/0

(Start)
$$
$$---Program here---
$$
run=ASSIGN/run+1
if/run.lt.runc
jumpto/(start)
Endif

RationalDMIS 2020条件语句/跳转语句/DO循环_Java_02

DECL/COMMON, INTGR, I
DO/i, 1, 10

$$$$$
$$$$$ <-------program here
$$$$$

enddo
DECL/COMMON,INTGR,NUMBEROFLOOPS
NUMBEROFLOOPS=ASSIGN/12
DECL/COMMON,INTGR,LOOP_COUNTER
DO/LOOP_COUNTER,1,NUMBEROFLOOPS
F(PT_2) = FEAT/POINT,POL, 0.357000, 249000, -0.005000, -0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT_2), 1
  PTMEAS/POL,  0.357000, 249.0000, -0.005000,  -0.000000, 0.000000, 1.000000
ENDMES
D(CRD4) = TRANS/ZORIG, FA(PT_2)
D(CRD5) = ROTATE/ZAXIS, 10
F(PT_3) = FEAT/POINT,POL, 0.357000, 249.0000, -0.005000, -0.000000,$
   0.000000, 1.000000
MEAS/POINT, F(PT_3), 1
  PTMEAS/POL,  0.35700, 249.0000, -0.005000,  -0.000000, 0.000000, 1.000000
ENDMES
DECL/COMMON,REAL,PT_3_Z
PT_3_Z = OBTAIN/FA(PT_3),5
DECL/GLOBAL,REAL,LEAD_1
LEAD_1=ASSIGN/(PT_3_Z*36)*-1
DECL/GLOBAL,CHAR,80,FEAT_1
FEAT_1=ASSIGN/CONCAT( 'VANE_LEAD_' ,STR(LOOP_COUNTER))
F(FEAT_1) = FEAT/POINT,CART, 0.000000, 0.000000, 2.240000, 0.000000,$
   -0.000000, 1.000000
FA(FEAT_1) = FEAT/POINT,CART, -0.000000, 0.000000, LEAD_1, 0.000000,$
   -0.000000, 1.000000
T(TCORTOLZ_100) = TOL/CORTOL,ZAXIS, -0.100000, 0.100000
OUTPUT/FA(FEAT_1),TA(TCORTOLZ_100)
ENDDO

RationalDMIS 2020条件语句/跳转语句/DO循环_Java_03