-
Notifications
You must be signed in to change notification settings - Fork 10
/
563_moonpaper_IBZ_3.txt
69 lines (52 loc) · 1.81 KB
/
563_moonpaper_IBZ_3.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Program MoonPaper;
//3 solutions to calc how many steps, #locs:46
//#sign:Max: MAXBOX10: 01/11/2016 11:19:29
Const EARTHMOON = 384000;
var Psize: float;
function moonSteps(asize: extended): float;
var EARTHMOONf: integer;
begin
EARTHMOONf:= 384000;
result:= ln(EARTHMOONf/asize)/ln(2*1)
end;
procedure moonStepsSimulation(asize: float);
begin
it:= 0;
repeat
asize:= asize * 2
inc(it)
until asize > EARTHMOON;
writeln(intToStr(it))
end;
vAR cpus: byte;
Begin //Main
//async
maXcalcF('ln(384000/0.0000001)/ln(2)')
Psize:= 0.0000001; //km
writeln(floatToStr(moonSteps(Psize)))
//sync with loop
moonStepsSimulation(Psize);
// function ExecuteProcess(FileName: string;Visibility:Integer; BitMask:Integer; Synch:Boolean):Longword;
//bitmask ---> 2 means on second CPU, sync or async possible!
{if ExecuteProcess('notepad.exe', SW_SHOW, 1, false) = 0 then
writeln('Multiprocessing Runs on CPU 2');}
cpus:= 2;
if ExecuteProcess(exepath+'maxbox4.exe firstdemo.txt', SW_SHOW, cpus, false) = 0 then
writeln('Multiprocessing Runs on CPU '+itoa(cpus));
writeln('NUMBER_OF_PROCESSORS: '
+getEnvironmentVariable('NUMBER_OF_PROCESSORS'))
End.
ref: a2^x=b
x= ln(384000/0.00001)/ln 2
task doc: how many times do you have to fold a paper to reach moon?
input: papersize: 0.1 mm, distance 384000 km
---- app_template_loaded_code----
---- #file:563_moonpaper_IBZ_3.txt
Version:
https://github.com/maxkleiner/maXbox3/blob/masterbox2/maxbox3.exe
Muster
https://github.com/maxkleiner/maXbox3/blob/masterbox2/examples2/060_pas_datefind_exceptions3dll.txt
ein prozess ist aus einer anderen datei zu lesen, mit einem zweiten skript das die datei schreibt
just 199 in download
down the android skript
172.18.60.59:8080/1