find tangent point by lisp

hi friends,

can anybodt know how to find tangent point in autolisp
cos and sin func. are there in autolisp. but tan is not there
somebody pls help me.

shailu,
ABC Computers.SERVIC
http://www.freewebs.com/amitvedak

 

(tan) function is not available in autolisp

 

tan funtion is not there,
but u need to calculate trough trignomentry

 

shailu,

i have developed func in my PC not here but at home.
pls mail me at
i'll send it to u by eml.

regards
unknown
1234567 CAD Software developments
www.yahoo.com

 

Hi Shailu

(defun MeTan (Ang)
(/ (sin Ang) (cos Ang))
)

Cheers

 

Juerg Menzi,

thanks for this func.

how di u put ur signature below.
is there any option.
pls reply
thanks

 

Hi,

Don't forget to check for Ang = Pi/2 etc where (cos Ang) = 0 and this gives
an error.

--


Laurie Comerford
CADApps
www.cadapps.com.au

 

Hi Laurie

You're right, should be:
(defun MeTan (Ang)
(cond
((= (cos Ang) 0.0) (if (minusp Ang) -1.0E24 1.0E24))
((/ (sin Ang) (cos Ang)))
)
)

Cheers

 

hi,

really nice to know a perfect function
cheers

Amit Vedak
Devyani CAD Software Developments.
http://devcs.com

 

Hi 1234567 CAD Softwares

Welcome...¦-)

In Netscape:
Preferences -> Mail & Newsgroups -> Identity -> Signature file or VCard
I use a txt file with signature text.

In other newsreaders you will find something similar.

Not possible in web browser, maybe copy/paste a signature...

Cheers