home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 1999 April / APC443.iso / features / grpware / coldfus / coldfusi.exe / data1.cab / Documentation / snippets / atn.cfm < prev    next >
Encoding:
Text File  |  1998-10-08  |  792 b   |  41 lines
  1. <!--- This snippet shows how to use Atn --->
  2.  
  3. <HTML>
  4.  
  5. <HEAD>
  6. <TITLE>
  7. Atn Example
  8. </TITLE>
  9. </HEAD>
  10.  
  11. <BODY bgcolor=silver>
  12.  
  13. <H3>Atn Example</H3>
  14.  
  15. <!--- output its Atn value --->
  16. <CFIF IsDefined("form.AtnNum")>
  17.  
  18.     <CFIF IsNumeric(#form.atnNum#)>
  19.         ATN(<CFOUTPUT>#form.atnNum#</CFOUTPUT>) = <CFOUTPUT>#Atn("#form.atnNum#")# radians = #Evaluate("#Atn("#form.atnNum#")# * 180/PI()")# Degrees</CFOUTPUT>
  20.     <CFELSE>
  21. <!--- if it is empty, output an error message --->
  22.         <H4>Please enter a number</H4>
  23.     </CFIF>
  24. </CFIF>
  25.  
  26.  
  27.  
  28. <FORM ACTION="atn.cfm" METHOD="POST">
  29. <P>Type in a number to get its arctangent in Radians and Degrees
  30. <BR><INPUT TYPE="Text" NAME="atnNum" SIZE="25">
  31. <P><INPUT TYPE="Submit" NAME=""> <INPUT TYPE="RESET">
  32.  
  33.  
  34. </FORM>
  35.  
  36.  
  37.  
  38. </BODY>
  39.  
  40. </HTML>       
  41.