Sideway
output.to from Sideway





Sin, Cos, Tan, Atn


Draft for Information Only

VBScript Math Functions

Functions for manipulating mathematics expression.

Sin Function

last updated 21Sep2017

Converts a given number to the sine of the given number by taking the given number as an angle in radian.

Syntax

Sin(number)

Arguments

numberRequired. Any valid numeric expression that expresses an angle in radians.

Returns

Returns a Variant of Double data subtype containing the sine, sin function of a given number.

Special returns of Sin function:

numberreturn valueNullRun-time ErrorEmpty0""Run-time Error

Remarks

  • Sin function is a trigonometric sine function.
  • The given number argument is defined as the angle of a right triangle to which the ratio of opposite side length and hypotenuse side length of the right triangle is equal to the sine function of the given angle.
  • Radians of a specified angle given in degrees can be obtained by multipling degrees by π/180.
  • The range of return is -1≤sin θ≤1.

Requirement

Version 1

Cos Function

last updated 17Sep2017

Converts a given number to the cosine of the given number by taking the given number as an angle in radian.

Syntax

Cos(number)

Arguments

numberRequired. Any valid numeric expression that expresses an angle in radians.

Returns

Returns a Variant of Double data subtype containing the cosine, cos function of a given number .

Special returns of Cos function:

numberreturn valueNullRun-time ErrorEmpty1""Run-time Error

Remarks

  • Cos function is a trigonometric cosine function.
  • The given number argument is defined as the angle of a right triangle to which the ratio of adjacent side length and hypotenuse side length of the right triangle is equal to the cosine function of the given angle.
  • Radians of a specified angle given in degrees can be obtained by multipling degrees by π/180.
  • The range of return is -1≤cos θ≤1.

Requirement

Version 1

Examples

Examples of Sin, Cos, Tan functions

ASP VbScript Command:
<script runat="server" language="VBScript">
Dim vars,num,pi,cmda,var:pi=4*Atn(1):var=0
Response.Write "π≈pi=4*Atn(1)="&pi&"<br /><br />"
cmda=array("num","Sin(num)","Cos(num)","Tan(num)")
Dim ucnt,tmp,i:ucnt=UBound(cmda):If var=1 Then:tmp="":Else:tmp="<b>vars</b>":End If:For i=0 to ucnt:tmp=tmp&"<b>"&cmda(i)&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, VBScript Version 5.8<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If Len(vars)>0 Then:Execute vars:End If:If var=1 Then:tmp_a="":Else:tmp_a=rmv_ctrl(vars):End If:For i=0 to ucnt:tmp_b=cmd_b(cmda(i)):if i/2=fix(i/2) Then:tmp_b="<b>"&tmp_b&"</b>":End If:tmp_a=tmp_a&tmp_b:Next:Response.Write "<i>"&tmp_a&"</i>":End Function
Function rmv_ctrl(blk_str):Select Case blk_str:Case chr(0):blk_str="NUL":Case chr(1):blk_str="SOH":Case chr(2):blk_str="STX":Case chr(3):blk_str="ETX":Case chr(4):blk_str="EOT":Case chr(5):blk_str="ENQ":Case chr(6):blk_str="ACK":Case chr(7):blk_str="BEL":Case chr(8):blk_str="BS":Case chr(9):blk_str="HT":Case chr(10):blk_str="LF":Case chr(11):blk_str="VT":Case chr(12):blk_str="FF":Case chr(13):blk_str="CR":Case chr(14):blk_str="SO":Case chr(15):blk_str="SI":Case chr(16):blk_str="DLE":Case chr(17):blk_str="DC1":Case chr(18):blk_str="DC2":Case chr(19):blk_str="DC3":Case chr(20):blk_str="DC4":Case chr(21):blk_str="NAK":Case chr(22):blk_str="SYN":Case chr(23):blk_str="ETB":Case chr(24):blk_str="CAN":Case chr(25):blk_str="EM":Case chr(26):blk_str="SUB":Case chr(27):blk_str="ESC":Case chr(28):blk_str="FS":Case chr(29):blk_str="GS":Case chr(30):blk_str="RS":Case chr(31):blk_str="US":Case chr(127):blk_str="DEL":End Select:rmv_ctrl=blk_str:If IsNull(blk_str) OR IsEmpty(Blk_str) OR blk_str="" OR IsNumeric(Blk_str) Then:Else:rmv_ctrl=Replace(Replace(Replace(Replace(Replace(blk_str,"&","&amp;"),"  "," &nbsp;"),"""","&quot;"),"<","&lt;"),">","&gt;"): End If :End Function
Function cmd_b(blk_str):cmd_b="["&cmd_x(blk_str)&"], "&cmd_x("TypeName("&blk_str&")"):End Function
Function cmd_x(blk_str):On Error Resume Next:Dim xans, tmp:xans="":tmp="":execute "xans="&blk_str:If Err.Number <> 0  Then:xans=cmd_x("TypeName("&blk_str&")"):Select Case xans:Case 9::Case Else:xans="error":End Select:End If:If IsArray(xans)=False Then:cmd_x=rmv_ctrl(xans): Else:tmp=lst_arry(xans):cmd_x=trim(tmp):End If:End Function
Function lst_arry(blk_str):Dim tmp,i:tmp="":For i=0 to UBound(blk_str):tmp=tmp&" """&rmv_ctrl(blk_str(i))&"""":Next:lst_arry=trim(tmp):End Function

vars="num=Empty":dsp_x
vars="num=0":dsp_x
vars="num=pi/4":dsp_x
vars="num=-pi/4":dsp_x
vars="num=pi/2":dsp_x
vars="num=-pi/2":dsp_x
vars="num=pi":dsp_x
vars="num=-pi":dsp_x
</script>
HTML Web Page In-line Output:
π≈pi=4*Atn(1)=3.14159265358979

Results on Microsoft Windows 8.1 Pro x64, VBScript Version 5.8
varsnum, TypeNameSin(num), TypeNameCos(num), TypeNameTan(num), TypeNamenum=Empty[], Empty[0], Double[1], Double[0], Doublenum=0[0], Integer[0], Double[1], Double[0], Doublenum=pi/4[.785398163397448], Double[.707106781186547], Double[.707106781186548], Double[1], Doublenum=-pi/4[-.785398163397448], Double[-.707106781186547], Double[.707106781186548], Double[-1], Doublenum=pi/2[1.5707963267949], Double[1], Double[6.12323399573677E-17], Double[1.63312393531954E+16], Doublenum=-pi/2[-1.5707963267949], Double[-1], Double[6.12323399573677E-17], Double[-1.63312393531954E+16], Doublenum=pi[3.14159265358979], Double[1.22464679914735E-16], Double[-1], Double[-1.22464679914735E-16], Doublenum=-pi[-3.14159265358979], Double[-1.22464679914735E-16], Double[-1], Double[1.22464679914735E-16], Double

Tan Function

last updated 21Sep2017

Converts a given number to the tangent of the given number by taking the given number as an angle in radian.

Syntax

Tan(number)

Arguments

numberRequired. Any valid numeric expression that expresses an angle in radians.

Returns

Returns a Variant of Double data subtype containing the tangent, tan function of a given number.

Special returns of Tan function:

numberreturn valueNullRun-time ErrorEmpty0""Run-time Error

Remarks

  • Tan function is a trigonometric tangent function.
  • The given number argument is defined as the angle of a right triangle to which the ratio of opposite side length and adjacent side length of the right triangle is equal to the tangent function of the given angle.
  • Radians of a specified angle given in degrees can be obtained by multipling degrees by π/180.
  • The range of return is –∞<tan θ<<∞.

Requirement

Version 1

Atn Function

last updated 16Sep2017

Converts a given number to an angle in radian by taking the inverse trigonometric function of tangent function of the given number.

Syntax

Atn(number)

Arguments

numberRequired. Any valid numeric expression

Returns

Returns a Variant of Double data subtype containing the arctangent, arctan function of a given number.

Special returns of Atn function:

numberreturn valueNullRun-time ErrorEmpty0""Run-time Error

Remarks

  • Atn function is a trigonometric arctangent function.
  • Atn function is the inverse trigonometric function of tangent function. While the inverse of a tangent function, 1/tan, is equal to the cotangent function.
  • The given number is defined as the ratio of opposite side length and adjacent side length of a right triangle with an unknown angle and is equal to the arctangent function of the unknown angle.
  • Degrees of the returned angle can be obtained by multipling radians by 180/π.
  • The range of return is -π/2<arctan x<π.2.

Requirement

Version 1

Examples

Examples of Atn functions

ASP VbScript Command:
<script runat="server" language="VBScript">
Dim vars,num,pi,cmda,var:pi=4*Atn(1):var=0
Response.Write "π≈pi=4*Atn(1)="&pi&"<br /><br />"
cmda=array("num","Atn(num)")
Dim ucnt,tmp,i:ucnt=UBound(cmda):If var=1 Then:tmp="":Else:tmp="<b>vars</b>":End If:For i=0 to ucnt:tmp=tmp&"<b>"&cmda(i)&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, VBScript Version 5.8<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If Len(vars)>0 Then:Execute vars:End If:If var=1 Then:tmp_a="":Else:tmp_a=rmv_ctrl(vars):End If:For i=0 to ucnt:tmp_b=cmd_b(cmda(i)):if i/2=fix(i/2) Then:tmp_b="<b>"&tmp_b&"</b>":End If:tmp_a=tmp_a&tmp_b:Next:Response.Write "<i>"&tmp_a&"</i>":End Function
Function rmv_ctrl(blk_str):Select Case blk_str:Case chr(0):blk_str="NUL":Case chr(1):blk_str="SOH":Case chr(2):blk_str="STX":Case chr(3):blk_str="ETX":Case chr(4):blk_str="EOT":Case chr(5):blk_str="ENQ":Case chr(6):blk_str="ACK":Case chr(7):blk_str="BEL":Case chr(8):blk_str="BS":Case chr(9):blk_str="HT":Case chr(10):blk_str="LF":Case chr(11):blk_str="VT":Case chr(12):blk_str="FF":Case chr(13):blk_str="CR":Case chr(14):blk_str="SO":Case chr(15):blk_str="SI":Case chr(16):blk_str="DLE":Case chr(17):blk_str="DC1":Case chr(18):blk_str="DC2":Case chr(19):blk_str="DC3":Case chr(20):blk_str="DC4":Case chr(21):blk_str="NAK":Case chr(22):blk_str="SYN":Case chr(23):blk_str="ETB":Case chr(24):blk_str="CAN":Case chr(25):blk_str="EM":Case chr(26):blk_str="SUB":Case chr(27):blk_str="ESC":Case chr(28):blk_str="FS":Case chr(29):blk_str="GS":Case chr(30):blk_str="RS":Case chr(31):blk_str="US":Case chr(127):blk_str="DEL":End Select:rmv_ctrl=blk_str:If IsNull(blk_str) OR IsEmpty(Blk_str) OR blk_str="" OR IsNumeric(Blk_str) Then:Else:rmv_ctrl=Replace(Replace(Replace(Replace(Replace(blk_str,"&","&amp;"),"  "," &nbsp;"),"""","&quot;"),"<","&lt;"),">","&gt;"): End If :End Function
Function cmd_b(blk_str):cmd_b="["&cmd_x(blk_str)&"], "&cmd_x("TypeName("&blk_str&")"):End Function
Function cmd_x(blk_str):On Error Resume Next:Dim xans, tmp:xans="":tmp="":execute "xans="&blk_str:If Err.Number <> 0  Then:xans=cmd_x("TypeName("&blk_str&")"):Select Case xans:Case 9::Case Else:xans="error":End Select:End If:If IsArray(xans)=False Then:cmd_x=rmv_ctrl(xans): Else:tmp=lst_arry(xans):cmd_x=trim(tmp):End If:End Function
Function lst_arry(blk_str):Dim tmp,i:tmp="":For i=0 to UBound(blk_str):tmp=tmp&" """&rmv_ctrl(blk_str(i))&"""":Next:lst_arry=trim(tmp):End Function

vars="num=Empty":dsp_x
vars="num=0":dsp_x
vars="num=1":dsp_x
vars="num=-1":dsp_x
vars="num=1.633E+16":dsp_x
vars="num=-1.633E+16":dsp_x
</script>
HTML Web Page In-line Output:
π≈pi=4*Atn(1)=3.14159265358979

Results on Microsoft Windows 8.1 Pro x64, VBScript Version 5.8
varsnum, TypeNameAtn(num), TypeNamenum=Empty[], Empty[0], Doublenum=0[0], Integer[0], Doublenum=1[1], Integer[.785398163397448], Doublenum=-1[-1], Integer[-.785398163397448], Doublenum=1.633E+16[1.633E+16], Double[1.5707963267949], Doublenum=-1.633E+16[-1.633E+16], Double[-1.5707963267949], Double

Sources

  •  

©sideway

ID: 170900026 Last Updated: 2017/11/6 Revision: 2

IMAGE

Home (1)

Business

Management

HBR (3)

Information

Recreation

Hobbies (7)

Culture

Chinese (1013)new

English (330)

Reference (57)

Computer

Hardware (111)

Software

Application (169)

Digitization (20)

Numeric (19)

Programming

Web (376)

HTML

Knowledge Base

Common Color (1)

Html Entity (Unicode) (1)

OS (263)

MS Windows

Windows8.1 (1)

DeskTop (5)

Knowledge

Mathematics

Formulas (6)

Number Theory (51)

Algebra (14)

Trigonometry (18)

Geometry (18)

Calculus (66)

Engineering

Tables (8)

Mechanical

Control

Process Control (1)

Mechanics (1)

Rigid Bodies

Statics & Dynamics (128)

Fluid (5)

Fluid Kinematics (5)

Acoustics (19)

FiniteElement (2)

Biology (1)

Geography (1)

Valid XHTML 1.0 Transitional Valid CSS!
Nu Html Checker Firefox53 Chromena IExplorerna


facebook
Latest Updated Links

Copyright © 2000-2017 Sideway . All rights reserved Disclaimersfacebook last modified on 19 May 2015