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)

Argument

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

1

vbSingle

last updated 26Nov2017

to specify a Single subtype

Returns

4

Requirement

2

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)

Argument

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

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>"&rmv_ctrl(cmda(i))&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /sideway/default.asp<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If varx=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,q:q="""":tmp="":For i=0 to UBound(blk_str):if VarType(blk_str(i))>1 And VarType(blk_str(i))<6 Then:q="'":End If:tmp=tmp&" "&q&rmv_ctrl(blk_str(i))&q: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, Microsoft-IIS/8.5, VBScript Version 5.8 of page /sideway/default.asp
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

GetStandardStream Method

last updated 14Dec2017

is to return a standard TextStream Object according to the given standardStreamType setting and specified optional unicode setting.

Syntax

fsoobjvar.GetStandardStream(standardStreamType [, unicode ])

Argument

fsoobjvarRequired. to specify the associated Object instance reference.GetStandardStreamRequired Keyword. to specify the Method of associated Object.standardStreamTypeRequired. Can be one of three constants: StdErr, StdIn, or StdOut.unicodeOptional. Boolean value that indicates whether the file is created as a Unicode or ASCII file. The value is true if the file is created as a Unicode file, false if it is created as an ASCII file. If omitted, an ASCII file is assumed.

Settings

standardStreamType argument:

ConstantValueDescriptionStdIn0Returns a TextStream object corresponding to the standard input stream.StdOut1Returns a TextStream object corresponding to the standard output stream.StdErr2Returns a TextStream object corresponding to the standard error stream.

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)

Argument

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

1

vbBinaryCompare Constant

last updated 25Nov2017

to perform a binary comparison

Returns

0

Requirement

2

vbBlack Constant

last updated 25Nov2017

Color Black

Returns

&h00

Remarks

  • Decimal Value: 0

Requirement

2

vbBlue Constant

last updated 25Nov2017

Color Blue

Returns

&hFF0000

Remarks

  • Decimal Value: 16711680

Requirement

2

vbCyan Constant

last updated 25Nov2017

Color Cyan

Returns

&hFFFF00

Remarks

  • Decimal Value: 16776960

Requirement

2

vbFirstFourDays Constant

last updated 25Nov2017

to use the first week that has at least four days in the new year as the first week of the year..

Returns

2

Requirement

2

vbFirstFullWeek Constant

last updated 25Nov2017

to use the first full week of the new year as the first week of the year.

Returns

3

Requirement

2

vbFirstJan1 Constant

last updated 25Nov2017

to use the week in which January 1 occurs as the first week of the year.

Returns

1

Requirement

2

vbFriday Constant

last updated 25Nov2017

Friday

Returns

6

Requirement

2

vbGeneralDate Constant

last updated 25Nov2017

to display a date and/or time using the GeneralDate format specified in local computer's system settings. For real numbers, display a date and time. If there is no fractional part, display only a date. If there is no integer part, display time only.

Returns

0

Requirement

2

vbGreen Constant

last updated 25Nov2017

Color Green

Returns

&hFF00

Remarks

  • Decimal Value: 65280

Requirement

2

vbLongDate Constant

last updated 25Nov2017

to display a date using the LongDate format specified in local computer's regional settings.

Returns

1

Requirement

2

vbLongTime Constant

last updated 25Nov2017

to display a date using the LongTime format specified in local computer's regional settings.

Returns

3

Requirement

2

vbMagenta Constant

last updated 25Nov2017

Color Magenta

Returns

&hFF00FF

Remarks

  • Decimal Value: 16711935

Requirement

2

vbMonday Constant

last updated 25Nov2017

Monday

Returns

2

Requirement

2

vbObjectError Constant

last updated 25Nov2017

the reference value for creating user-defined error numbers which should be greater than this value.

Returns

-2147221504

Requirement

2

vbOKOnly Constant

last updated 25Nov2017

to display OK button only.

Returns

0

Requirement

2

vbRed Constant

last updated 25Nov2017

Color Red

Returns

&hFF

Remarks

  • Decimal Value: 255

Requirement

2

vbSaturday Constant

last updated 25Nov2017

Saturday

Returns

7

Requirement

2

vbShortDate Constant

last updated 25Nov2017

to display a date using the ShortDate format specified in local computer's regional settings.

Returns

2

Requirement

2

vbShortTime Constant

last updated 25Nov2017

to display a date using the ShortTime format specified in local computer's regional settings.

Returns

4

Requirement

2

vbSunday Constant

last updated 25Nov2017

Sunday

Returns

1

Requirement

2

vbTextCompare Constant

last updated 25Nov2017

to perform a text comparison

Returns

1

Requirement

2

vbThursday Constant

last updated 25Nov2017

Thursday

Returns

5

Requirement

2

vbTuesday Constant

last updated 25Nov2017

Tuesday

Returns

3

Requirement

2

vbUseSystem Constant

last updated 25Nov2017

to use National Language Support (NLS) API setting as the first week of the year..

Returns

0

Requirement

2

vbUseSystemDayOfWeek Constant

last updated 25Nov2017

to use the day of the week specified in local system settings as the first day of the week.

Returns

0

Requirement

2

vbWednesday Constant

last updated 25Nov2017

Wednesday

Returns

4

Requirement

2

vbWhite Constant

last updated 25Nov2017

Color White

Returns

&hFFFFFF

Remarks

  • Decimal Value: 16777215

Requirement

2

vbYellow Constant

last updated 25Nov2017

Color Yellow

Returns

&hFFFF

Remarks

  • Decimal Value: 65535

Requirement

2

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)

Argument

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

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>"&rmv_ctrl(cmda(i))&", TypeName</b>":Next:Response.Write "Results on Microsoft Windows 8.1 Pro x64, Microsoft-IIS/8.5, VBScript Version 5.8 of page /sideway/default.asp<br />"&"<i>"&tmp&"</i>"
Function dsp_x:Dim tmp_a,tmp_b,i:If varx=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,q:q="""":tmp="":For i=0 to UBound(blk_str):if VarType(blk_str(i))>1 And VarType(blk_str(i))<6 Then:q="'":End If:tmp=tmp&" "&q&rmv_ctrl(blk_str(i))&q: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, Microsoft-IIS/8.5, VBScript Version 5.8 of page /sideway/default.asp
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 (1069)new

English (330)

Reference (57)

Computer

Hardware (111)

Software

Application (170)

Digitization (20)

Numeric (19)

Programming

Web (378)

OS (263)

MS Windows

Windows10 (1)new

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-2018 Sideway . All rights reserved Disclaimersfacebook last modified on 19 May 2015