Programmierbeispiel

Programmierbeispiel

Berechnungszyklus

; creation of return variables

#VAR

  V.CYC.SysRetDirVectorX

  V.CYC.SysRetDirVectorY

  V.CYC.SysRetDirVectorZ

  V.CYC.SysRetSupVectorX

  V.CYC.SysRetSupVectorY

  V.CYC.SysRetSupVectorZ

  V.CYC.SysRetVariance

#ENDVAR

; calc line of X-axis from points

L CYCLE [NAME=SysCalcLine.ecy  \

@P50 = 0 @P60 = 0 @P70 = 0     \

@P51 = 1 @P61 = 0 @P71 = 0     \

@P52 = 2 @P62 = 0 @P72 = 0     \

]

#FILE NAME[MSG="SysCalcLineResult.txt"                   ]

#MSG SAVE ["Direction X     = %f", V.CYC.SysRetDirVectorX]

#MSG SAVE ["Direction Y     = %f", V.CYC.SysRetDirVectorY]

#MSG SAVE ["Direction Z     = %f", V.CYC.SysRetDirVectorZ]

#MSG SAVE ["Point on Line X = %f", V.CYC.SysRetSupVectorX]

#MSG SAVE ["Point on Line Y = %f", V.CYC.SysRetSupVectorY]

#MSG SAVE ["Point on Line Z = %f", V.CYC.SysRetSupVectorZ]

#MSG SAVE ["Variance        = %f", V.CYC.SysRetVariance  ]

M30