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