25 lines
993 B
Text
25 lines
993 B
Text
100 REM Real constants and functions
|
|
110 DECLARE EXTERNAL FUNCTION Floor
|
|
120 PRINT "e = "; EXP(1) ! e not available
|
|
130 PRINT "PI = "; PI
|
|
140 LET X = 12.345
|
|
150 LET Y = 1.23
|
|
160 PRINT "sqrt = "; SQR(X), X ^ 0.5 ! square root- NB the unusual name
|
|
170 PRINT "ln = "; LOG(X) ! natural logarithm base e
|
|
180 PRINT "log2 = "; LOG2(X) ! base 2 logarithm
|
|
190 PRINT "log10 = "; LOG10(X) ! base 10 logarithm
|
|
200 PRINT "log = "; LOG(X) / LOG(Y) ! arbitrary base logarithm
|
|
210 PRINT "exp = "; EXP(X) ! exponential
|
|
220 PRINT "abs = "; ABS(-1) ! absolute value
|
|
230 PRINT "floor = "; Floor(X) ! floor easily implemented as functions
|
|
240 PRINT "ceil = "; CEIL(X) ! ceiling
|
|
250 PRINT "power = "; X ^ Y ! power
|
|
260 END
|
|
270 REM **
|
|
280 EXTERNAL FUNCTION Floor(X)
|
|
290 IF X > 0 THEN
|
|
300 LET Floor = INT(X)
|
|
310 ELSE
|
|
320 IF X <> INT(X) THEN LET Floor = INT(X) - 1 ELSE LET Floor = INT(X)
|
|
330 END IF
|
|
340 END FUNCTION
|