how to get facos?

[orbit]

hi
i need to solve a problem that uses arccosine and nmi-forth in my servopod does not support facos , i seem to remember there is a way around this but i cant remember what it is:confused: , the other thing i would like to find out is i can print a list of WORDS but how do i get definitions for the words to isomax , thanks , dana

[nmitech]

The IsoMax Glossary is available on the 'pod(TM) download page. Here is the direct link,

http://www.newmicros.com/store/product_manual/IsomaxGlossary.pdf

[orbit]

thank you nmitech :D

i knew there had to be a listing somewhere :confused: , i just could'nt find it :rolleyes: , thanks again , dana

[RMDumse]

Some of the earlier versions of IsoMax(TM) had a problem in FATAN, so for version V.6 and before, use this.

DECIMAL
: FATAN2NEW ( F: Y \ X ... F in radians between -pi and +pi
FDUP F0= ( x=0?
IF
FDROP FDUP F0= 0= ( y=0?
IF
F0< PI
IF
FNEGATE
THEN
F2/
THEN
EXIT
THEN
FOVER F0< ( y<0)
FDUP F0< ( x<0)
F/ FATAN
IF ( x<0)
PI
IF ( y<0)
F-
ELSE
F+
THEN
ELSE
DROP
THEN
; EEWORD

: FACOS ( F:r1 -- r2 )
1E0 FOVER FDUP F* ( COSr1 1 COSr1^2
F- FSQRT ( COSr1 1-COSr1^2^.5
FSWAP
FATAN2NEW
; EEWORD

: FASIN ( F:r1 -- r2 )
1E0 FOVER FDUP F* ( SINr1 1 SINr1^2
F- FSQRT ( SINr1 1-SINr1^2^.5
FATAN2NEW
; EEWORD

The key to solving ARC functions is to realize TAN = SIN/COS so given SIN or COS, you convert to TAN, then take the ARC function of that with FATAN.

[orbit]

thank you rmdumse

i had the same problem with forth on my commadore -64 , and could not for the life of me remember how i got around it back then , thanks again , dana