Current Help System: Tutor Translator (View Core Help)

## Core Functions

These basic functions are part of the Tutor translator and help to accomplish some of the tasks of translating Tutor commands.

ASSIGN/ E.OFF2ROT = FUNCTION((X,Y),IF(X==0,IF(Y>0,90,90),RAD2DEG(ATAN(Y/X))))

BIGGEST

ASSIGN/ E.BIGGEST = FUNCTION((F),IF(ABS(F.I)>ABS(F.J),IF(ABS(F.K)>ABS(F.I),IF(F.K>0,E.ZPLUS,E.ZMINUS),IF(F.I>0,E.XPLUS,E.XMINUS)),IF(ABS(F.K)>ABS(F.J),IF(F.K>0,E.ZPLUS,E.ZMINUS),IF(F.J>0,E.YPLUS,E.YMINUS))))CALC_AXY

ASSIGN/ E.CALC_AXY = FUNCTION((V1,V2),ANGLEBETWEEN(UNIT(MPOINT(V1.I,V1.J,0)), UNIT(MPOINT(V2.I,V2.J,0))))

CALC_AYZ

ASSIGN/ E.CALC_AYZ = FUNCTION((V1,V2),ANGLEBETWEEN(UNIT(MPOINT(0,V1.J,V1.K)), UNIT(MPOINT(0,V2.J,V2.K))))

CALC_AZY

ASSIGN/ E.CALC_AZX = FUNCTION((V1,V2),ANGLEBETWEEN(UNIT(MPOINT(V1.I,0,V1.K)), UNIT(MPOINT(V2.I,0,V2.K))))

BOOLVAL

ASSIGN/ E.BOOLVAL = FUNCTION((BVAL),IF(BVAL<>0,"TRUE","FALSE"))

PDMS2DEG

ASSIGN/ E.PDMS2DEG = FUNCTION((VAL),INT(VAL)+INT((VAL-INT(VAL))*100)/60+(((VAL-INT(VAL))*100)-INT((VAL-INT(VAL))*100))*100/3600)

PDMS2DEG

ASSIGN/ E.DMS2DEG = FUNCTION((VAL,ISDMS),IF((ISDMS),VAL,IF((VAL>=0),E.PDMS2DEG(VAL),-E.PDMS2DEG(-VAL))))