![]() |
![]() |
![]() |
![]() |
![]() |
![]() |
I own version 6.05c of the interpretor that runs on an Atari ST(e). Being a GEM program, I thought that it could be run easely on a newer and powerful machine.
After some testing, the answer is NO... I tried to see what's happening and found some problems liked to:
I wrote a program, APLPATCH.PRG, (in Forth) that allows you to set those options to match your requirements according to your machine. |
![]() Calculation time of PI in 32 and in 48MHz on a TT with a CaTTamaran. |
PI approximation with a sum![]() Here is a very short program to compute PI. The two lines surrounding the formula are there to compute the calculation time. |
I use the sum of the reciprocals of the squares of integers from 1 to n whose limit is square(PI)/6. "N" is the number of integers to be used.
|
Execution time![]() Here is the concise program to compute the duration. |
The variable quadTS returns the current time in a table defined as
(YEAR MONTH DAY HOUR MIN SEC 1/1000). "T" is the variable containing the start time of execution. So you must call DUREE at the end of the execution. Let's say that the program started at 10h 59mn 45,240s and ended at 11h 01mn 50,000s the same day:
|
A bit of statistics, the specifications of the STAT function![]() Here is the result of the execution. |
STAT is called with a parameter that is a vector of effectives you want to work with. Upon return, this display is expected:
|
Let's examine the details of the STAT function![]() Source code that you can get with "Open Fn" from the menu. |
In STAT V, the local variable V represents the vector of effectives.
|
The specifications of the GRAPH function![]() Here is the expected graphic. |
The GRAPH function must be called after the STAT function because it needs the value of N and the FREQ vector.
|
Let's examine the details fo the GRAPH function![]() You can get the source code with the menu "Open Fn". |
In the GRAPH function, there are two implicit parameters: FREQ vector and value N returned by the STAT function.
|
(210-FREQ×200)with
(210-(FREQ÷Γ/FREQ)×200)
|
![]() Here are my settings on the TT with 64MB TT Ram. |
machine | Atari ST(e) 4MB | TT 64MB/48mhz | Falcon CT060/95mhz |
result of PI 100000 | 3.141583104 280.56 sec |
3.141583104 47.32 sec |
3.141583104 3.5 sec |
Content:
|
APL.ZIP. |