Sideway BICK BlogSideway BICK BLOG from Sideway

A Sideway to Sideway Home
Home
Output.to

Link:http://output.to/sideway/default.asp?qno=170900025

ShuowenJiezi Chinese Character Radicals 亢

Chinese ShuowenJiezi Radical 399 亢(U+4EA2)

Section 分部Character
漢字 3
部
亢
U+4EA2
open
close
人頸也从大省𧰼頸脈形凡亢之屬𣅜从亢古郎切
last updated 2April2017
頏
U+980F
open
close
亢或从頁
last updated 2April2017
𠅣
U+20163
open
close
直項莽𠅣皃从亢从夋夋倨也亢亦聲岡朗切又胡朗切
last updated 2April2017

Link:http://output.to/sideway/default.asp?qno=170900026

Script, Scripting Language, VBScript elements, Server-Side VBScript Function, Math Function, Sin, Cos, Tan, Atan

VBScript Math Functions

Functions for manipulating mathematics expression.

Sin Function

last updated 9/21/2017

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 11/26/2017

to specify a Single subtype

Returns

4

Requirement

2

Cos Function

last updated 9/17/2017

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 /internet/users/sideblog/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 /internet/users/sideblog/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[0.785398163397448], Double[0.707106781186547], Double[0.707106781186548], Double[1], Doublenum=-pi/4[-0.785398163397448], Double[-0.707106781186547], Double[0.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 12/14/2017

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 9/21/2017

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 11/25/2017

to perform a binary comparison

Returns

0

Requirement

2

vbBlack Constant

last updated 11/25/2017

Color Black

Returns

&h00

Remarks

  • Decimal Value: 0

Requirement

2

vbBlue Constant

last updated 11/25/2017

Color Blue

Returns

&hFF0000

Remarks

  • Decimal Value: 16711680

Requirement

2

vbCyan Constant

last updated 11/25/2017

Color Cyan

Returns

&hFFFF00

Remarks

  • Decimal Value: 16776960

Requirement

2

vbFirstFourDays Constant

last updated 11/25/2017

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 11/25/2017

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 11/25/2017

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

Returns

1

Requirement

2

vbFriday Constant

last updated 11/25/2017

Friday

Returns

6

Requirement

2

vbGeneralDate Constant

last updated 11/25/2017

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 11/25/2017

Color Green

Returns

&hFF00

Remarks

  • Decimal Value: 65280

Requirement

2

vbLongDate Constant

last updated 11/25/2017

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

Returns

1

Requirement

2

vbLongTime Constant

last updated 11/25/2017

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

Returns

3

Requirement

2

vbMagenta Constant

last updated 11/25/2017

Color Magenta

Returns

&hFF00FF

Remarks

  • Decimal Value: 16711935

Requirement

2

vbMonday Constant

last updated 11/25/2017

Monday

Returns

2

Requirement

2

vbObjectError Constant

last updated 11/25/2017

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

Returns

-2147221504

Requirement

2

vbOKOnly Constant

last updated 11/25/2017

to display OK button only.

Returns

0

Requirement

2

vbRed Constant

last updated 11/25/2017

Color Red

Returns

&hFF

Remarks

  • Decimal Value: 255

Requirement

2

vbSaturday Constant

last updated 11/25/2017

Saturday

Returns

7

Requirement

2

vbShortDate Constant

last updated 11/25/2017

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

Returns

2

Requirement

2

vbShortTime Constant

last updated 11/25/2017

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

Returns

4

Requirement

2

vbSunday Constant

last updated 11/25/2017

Sunday

Returns

1

Requirement

2

vbTextCompare Constant

last updated 11/25/2017

to perform a text comparison

Returns

1

Requirement

2

vbThursday Constant

last updated 11/25/2017

Thursday

Returns

5

Requirement

2

vbTuesday Constant

last updated 11/25/2017

Tuesday

Returns

3

Requirement

2

vbUseSystem Constant

last updated 11/25/2017

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

Returns

0

Requirement

2

vbUseSystemDayOfWeek Constant

last updated 11/25/2017

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 11/25/2017

Wednesday

Returns

4

Requirement

2

vbWhite Constant

last updated 11/25/2017

Color White

Returns

&hFFFFFF

Remarks

  • Decimal Value: 16777215

Requirement

2

vbYellow Constant

last updated 11/25/2017

Color Yellow

Returns

&hFFFF

Remarks

  • Decimal Value: 65535

Requirement

2

Atn Function

last updated 9/16/2017

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 /internet/users/sideblog/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 /internet/users/sideblog/default.asp
varsnum, TypeNameAtn(num), TypeNamenum=Empty[], Empty[0], Doublenum=0[0], Integer[0], Doublenum=1[1], Integer[0.785398163397448], Doublenum=-1[-1], Integer[-0.785398163397448], Doublenum=1.633E+16[1.633E+16], Double[1.5707963267949], Doublenum=-1.633E+16[-1.633E+16], Double[-1.5707963267949], Double

Sources

  •  
Previous Month  SEP  2017  Next Month
SMTWTFS
12
3456789
10111213141516
17181920212223
24252627282930

Previous Month  JUN  2014  Next Month
SMTWTFS
1234567
891011121314
15161718192021
22232425262728
2930

Sideway BICK Blog

21/09

Copyright © 2000-2020 Sideway . All rights reserved Disclaimerslast modified on 26 January 2013