Programmierbeispiel
Programmierbeispiel
Berechnungszyklus
; creation of return variables
#VAR
V.CYC.SysRetCenterX
V.CYC.SysRetCenterY
V.CYC.SysRetCenterZ
V.CYC.SysRetRadius
V.CYC.SysRetVariance
#ENDVAR
; calculation of the unit sphere
L CYCLE [NAME=SysCalcSphere.ecy \
@P50 = 1 @P60 = 0 @P70 = 0 \
@P51 = -1 @P61 = 0 @P71 = 0 \
@P52 = 0 @P62 = 1 @P72 = 0 \
@P53 = 0 @P63 = -1 @P73 = 0 \
@P54 = 0 @P64 = 0 @P74 = 1 \
]
; print result
#FILE NAME[MSG="SysCalcSphereResult.txt"]
#MSG SAVE EXCLUSIVE["Center X = %f", V.CYC.SysRetCenterX ]
#MSG SAVE EXCLUSIVE["Center Y = %f", V.CYC.SysRetCenterY ]
#MSG SAVE EXCLUSIVE["Center Z = %f", V.CYC.SysRetCenterZ ]
#MSG SAVE EXCLUSIVE["Radius = %f", V.CYC.SysRetRadius ]
#MSG SAVE EXCLUSIVE["Variance = %f", V.CYC.SysRetVariance]
M30