TAN: Difference between revisions
Jump to navigation
Jump to search
Code by Unseen Machine
Navigation:
Main Page with Articles and Tutorials
Keyword Reference - Alphabetical
Keyword Reference - By usage
Report a broken link
m (Protected "TAN" ([Edit=Allow only autoconfirmed users] (indefinite) [Move=Allow only autoconfirmed users] (indefinite))) |
No edit summary |
||
| (6 intermediate revisions by the same user not shown) | |||
| Line 3: | Line 3: | ||
{{PageSyntax}} | {{PageSyntax}} | ||
: tangent! = '''TAN('''''radian_angle!''''')''' | |||
{{ | {{PageParameters}} | ||
* The ''radian_angle'' must be measured in radians. | * The ''radian_angle'' must be measured in radians. | ||
| Line 16: | Line 16: | ||
''Example:'' Spiraling text using the [[SIN]] and [[TAN]] functions. | ''Example:'' Spiraling text using the [[SIN]] and [[TAN]] functions. | ||
{{CodeStart}} | {{CodeStart}} | ||
{{Cl|DIM}} {{Cl|SHARED}} text {{Cl|AS}} {{Cl|STRING}} | {{Cl|DIM}} {{Cl|SHARED}} text {{Cl|AS}} {{Cl|STRING}} | ||
text$ = "S P I R A L" | text$ = "S P I R A L" | ||
| Line 57: | Line 57: | ||
y = {{Cl|SIN}}(SCALE * 60 - (row * yrot)) * {{Cl|TAN}}({{Cl|SIN}}(i)) * pan | y = {{Cl|SIN}}(SCALE * 60 - (row * yrot)) * {{Cl|TAN}}({{Cl|SIN}}(i)) * pan | ||
cnt = cnt + 1 | cnt = cnt + 1 | ||
{{Cl|IF...THEN|IF}} word(cnt, row) > 0 {{Cl|THEN}} | {{Cl|IF...THEN|IF}} word(cnt, row) > 0 {{Cl|THEN}} | ||
{{Cl|CIRCLE}} (x + 320, y + 220), SCALE + 1, 1 'circled letters | {{Cl|CIRCLE}} (x + 320, y + 220), SCALE + 1, 1 'circled letters | ||
'{{Cl|LINE}} (x + 320, y + 220)-{{Cl|STEP}}(12, 12), 1, BF 'boxed letters | '{{Cl|LINE}} (x + 320, y + 220)-{{Cl|STEP}}(12, 12), 1, BF 'boxed letters | ||
| Line 68: | Line 68: | ||
cend = cend + .1 | cend = cend + .1 | ||
cstart = cstart + .1 | cstart = cstart + .1 | ||
now! = {{Cl|TIMER}} | now! = {{Cl|TIMER (function)|TIMER}} | ||
DO | DO | ||
newnow! = {{Cl|TIMER}} | newnow! = {{Cl|TIMER (function)|TIMER}} | ||
{{Cl|LOOP}} {{Cl|UNTIL}} newnow! - now! >= .15 | {{Cl|LOOP}} {{Cl|UNTIL}} newnow! - now! >= .15 | ||
{{Cl|LINE}} (1, 100)-(639, 280), 0, BF | {{Cl|LINE}} (1, 100)-(639, 280), 0, BF | ||
{{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) | {{Cl|LOOP}} {{Cl|UNTIL}} {{Cl|INKEY$}} = {{Cl|CHR$}}(27) | ||
{{Cl|END SUB}} | {{Cl|END SUB}} | ||
{{CodeEnd}} | {{CodeEnd}} | ||
{{ | {{Small|Code by Unseen Machine}} | ||
{{PageSeeAlso}} | {{PageSeeAlso}} | ||
* [[_PI]] | * [[_PI]] | ||
* [[SIN]], [[COS]] | * [[SIN]], [[COS]] | ||
* [[ATN]] | * [[ATN]] | ||
* [[Mathematical Operations]] | * [[Mathematical Operations]] | ||
* [[Text Using Graphics]] | * [[Text Using Graphics]] | ||
* [[ | * [[Mathematical Operations#Derived_Mathematical_Functions|Derived Mathematical Functions]] | ||
{{PageNavigation}} | {{PageNavigation}} | ||
Latest revision as of 17:03, 24 February 2023
The TAN function returns the ratio of SINe to COSine or tangent value of an angle measured in radians.
Syntax
- tangent! = TAN(radian_angle!)
Parameters
- The radian_angle must be measured in radians.
Description
- To convert from degrees to radians, multiply degrees * π/180.
- TANGENT is the gradient or slope of the circle or arc at SIN(θ) / COS(θ). Do not use division when the COS = 0 to avoid errors.
Example: Spiraling text using the SIN and TAN functions.
DIM SHARED text AS STRING text$ = "S P I R A L" DIM SHARED word(1 TO LEN(text$) * 8, 1 TO 16) CALL analyse CLS CALL redraw SUB analyse CLS SCREEN 12 COLOR 2: LOCATE 1, 1: PRINT text$ DIM px AS INTEGER, py AS INTEGER, cnt AS INTEGER, ltrcnt AS INTEGER px = 1: py = 1 DO word(px, py) = POINT(px, py) PSET (px, py), 1 px = px + 1 IF px = LEN(text$) * 8 THEN px = 1 py = py + 1 END IF LOOP UNTIL py = 16 END SUB SUB redraw CLS DIM row AS INTEGER, cnt AS INTEGER, cstart AS SINGLE, cend AS SINGLE DIM xrot AS INTEGER, yrot AS INTEGER, SCALE AS INTEGER, pan AS INTEGER cstart = 0: cend = 6.2 xrot = 6: yrot = 6: SCALE = 3: pan = 30 OUT &H3C8, 1: OUT &H3C9, 10: OUT &H3C9, 10: OUT &H3C9, 60 DO row = 2 DO DO FOR i = cend TO cstart STEP -.03 x = (SCALE * 60 - (row * xrot / 4)) * TAN(COS(i)) y = SIN(SCALE * 60 - (row * yrot)) * TAN(SIN(i)) * pan cnt = cnt + 1 IF word(cnt, row) > 0 THEN CIRCLE (x + 320, y + 220), SCALE + 1, 1 'circled letters 'LINE (x + 320, y + 220)-STEP(12, 12), 1, BF 'boxed letters END IF IF cnt = LEN(text$) * 8 THEN cnt = 0: EXIT DO NEXT LOOP row = row + 1 LOOP UNTIL row = 16 cend = cend + .1 cstart = cstart + .1 now! = TIMER DO newnow! = TIMER LOOP UNTIL newnow! - now! >= .15 LINE (1, 100)-(639, 280), 0, BF LOOP UNTIL INKEY$ = CHR$(27) END SUB |
See also