ВУЗ: Не указан
Категория: Не указан
Дисциплина: Не указана
Добавлен: 12.06.2025
Просмотров: 8250
Скачиваний: 1
© MCS Electronics, 1995-2007
End
ATN2
Action
ATN2 is a four-quadrant arc-tangent.
While the ATN-function returns from -p/2 (-90°) to p/2 (90°), the ATN2 function returns the whole range of a circle from -p (-180°) to +p (180°). The result depends on the ratio of Y/X and the signs of X and Y.
Syntax
var = ATN2( y, x )
Remarks
Var |
A single variable that is assigned with the ATN2 of variable single. |
XThe single variable with the distance in x-direction.
YThe single variable with the distance in y-direction
Quadrant |
Sign Y |
Sign X |
ATN2 |
I |
+ |
+ |
0 to p/2 |
II |
+ |
- |
p/2 to p |
III |
- |
- |
-p/2 to -p |
IV |
- |
+ |
0 to –p/2 |
If you go with the ratio Y/X into ATN you will get same result for X greater zero (right side in coordinate system) as with ATN2. ATN2 uses X and Y and can give information of the angle of the point over 360° in the coordinates system.
All trig functions work with radians. Use deg2rad and rad2deg to convert between radians and angles.
See Also
RAD2DEG , DEG2RAD , COS , SIN , TAN , ATN
page -277-
© MCS Electronics, 1995-2007 |
|
Example |
' specify the used |
$regfile = "m48def.dat" |
|
micro |
' used crystal |
$crystal = 8000000 |
|
frequency |
' use baud rate |
$baud = 19200 |
|
$hwstack = 32 |
' default use 32 |
for the hardware stack |
' default use 10 |
$swstack = 10 |
|
for the SW stack |
' default use 40 |
$framesize = 40 |
|
for the frame space |
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits = 8 , Clockpol = 0
Dim S As Single , X As Single
X = 0.5 : S = 1.1
S = Atn2(s , X)
Print S ' prints 1.144164676
End
BASE64DEC
Action
Converts Base-64 data into the original data.
Syntax
Result = BASE64DEC( source)
Remarks
Result |
A string variable that is assigned with the un-coded string. |
Source |
The source string that is coded with base-64. |
Base-64 is not an encryption protocol. It sends data in 7-bit ASCII data format. MIME, web servers, and other Internet servers and clients use Base-64 coding.
The provided Base64Dec() function is a decoding function. It was written to add authentication to the web server sample.
When the web server asks for authentication, the client will send the user and password unencrypted, but base-64 coded to the web server.
Base-64 coded strings are always in pairs of 4 bytes. These 4 bytes represent 3 bytes.
See also
CONFIG TCPIP, GETSOCKET , SOCKETCONNECT, SOCKETSTAT , TCPWRITE, TCPWRITESTR, CLOSESOCKET , SOCKETLISTEN , BASE64ENC
Example
$regfile = "m48def.dat" |
' specify the used |
micro |
page -278-
© MCS Electronics, 1995-2007 |
|
$crystal = 8000000 |
' used crystal |
frequency |
' use baud rate |
$baud = 19200 |
|
$hwstack = 32 |
' default use 32 |
for the hardware stack |
' default use 10 |
$swstack = 10 |
|
for the SW stack |
' default use 40 |
$framesize = 40 |
|
for the frame space |
|
$lib "tcpip.lbx" |
|
Config Com1 = Dummy , Synchrone = 0 , Parity = None , Stopbits = 1 , Databits |
|
= 8 , Clockpol = 0 |
|
Dim S As String * 15 , Z As String * 15 |
|
S = "bWFyazptYXJr" |
|
Z = Base64dec(s) |
'mark:mark |
Print Z |
|
End
BASE64ENC
Action
Converts a string into the Base-64 representation.
Syntax
Result = BASE64ENC( source)
Remarks
Result |
A string variable that is assigned with the coded string. |
Source |
The source string that must be code with base-64. |
Base-64 is not an encryption protocol. It sends data in 7-bit ASCII data format. MIME, web servers, and other Internet servers and clients use Base-64 coding.
The provided Base64Enc() function is an encoding function. You need it when you want to send attachments with POP3 for example.
The target string will use 1 additional byte for every 3 bytes.
So make sure the target string is dimensioned longer then the original string.
See also
CONFIG TCPIP, GETSOCKET , SOCKETCONNECT, SOCKETSTAT , TCPWRITE, TCPWRITESTR, CLOSESOCKET , SOCKETLISTEN , BASE64DEC
Example
$regfile = "m48def.dat" |
' specify the used |
micro |
' used crystal |
$crystal = 8000000 |
|
frequency |
' use baud rate |
$baud = 19200 |
|
page -279- |