320.0
width
height
320
490
490.0
10.0
2
filename
page4$0.mml
date
1201293330000
url
F:\Users\marc\Documents\Pius X\5V\Atoombouw\page4$0.mml
size
23978
codebase
/public/part2/atomstrk
define %atomX 18.4;
define %atomY 16.0;
define %protons round(1);
define %electrons round(1);
define %neutrons round(0);
define %radioactiveIsVisible 0;
define %updateNeeded 0;
define %addProton 0;
define %removeProton 0;
define %addNeutron 0;
define %removeNeutron 0;
define %addElectron 0;
define %removeElectron 0;
define %resetToHydrogen 0;
define %charge 0;
define %massnum 1;
run;
update isotope charge and atom
200
update view
if (%updateNeeded);
if (%addProton);
if (%protons < 10);
set %protons round(%protons+1);
add atom 1 (1,16);
define %newAtomIndex %number_of_atoms;
define %newBond %number_of_atoms-1;
bond 0 %newAtomIndex 0.1;
select rbond %newBond;
set bondlength 0.25;
select rbond none;
minimize 1 50;
else;
message protonLimit.html;
endif;
endif;
if (%removeProton);
if (%protons > 1);
set %protons round(%protons-1);
define %i round(0);
while (%i < %number_of_atoms);
if (%atom[%i].id == 1);
select atom %i;
remove;
break;
endif;
set %i round(%i+1);
endwhile;
endif;
endif;
if (%addNeutron);
if (%neutrons < 12);
set %neutrons round(%neutrons+1);
add atom 2 (1,16);
define %newAtomIndex %number_of_atoms;
define %newBond %number_of_atoms-1;
bond 0 %newAtomIndex 0.1;
select rbond %newBond;
set bondlength 0.25;
select rbond none;
minimize 1 50;
else;
message neutronLimit.html;
endif;
endif;
if (%removeNeutron);
if (%neutrons > 0);
set %neutrons round(%neutrons-1);
define %i round(0);
while (%i < %number_of_atoms);
if (%atom[%i].id == 2);
select atom %i;
remove;
break;
endif;
set %i round(%i+1);
endwhile;
endif;
endif;
if (%addElectron);
if (%electrons < 10);
set %electrons round(%electrons+1);
else;
message electronLimit.html;
endif;
endif;
if (%removeElectron);
if (%electrons > 0);
set %electrons round(%electrons-1);
endif;
endif;
set %addProton 0;
set %removeProton 0;
set %addNeutron 0;
set %removeNeutron 0;
set %addElectron 0;
set %removeElectron 0;
set %massnum round(%protons+%neutrons);
set %charge round(%protons-%electrons);
set textbox[4].text <t>TOTALE LADING = %charge</t>
if (%charge < 0);
set textbox[4].color #0000FF;
else;
if (%charge > 0);
set textbox[4].color #FF0000;
else;
set textbox[4].color #666666;
endif;
endif;
set textbox[3].text <t>atoomnummer --> %protons</t>;
set textbox[2].text <t>massagetal --> %massnum</t>;
if (%protons == 1);
set textbox[1].text <t>H</t>;
set textbox[5].text <t>waterstof-%massnum</t>
endif;
if (%protons == 2);
set textbox[1].text <t>He</t>;
set textbox[5].text <t>helium-%massnum</t>
endif;
if (%protons == 3);
set textbox[1].text <t>Li</t>;
set textbox[5].text <t>lithium-%massnum</t>
endif;
if (%protons == 4);
set textbox[1].text <t>Be</t>;
set textbox[5].text <t>beryllium-%massnum</t>
endif;
if (%protons == 5);
set textbox[1].text <t>B</t>;
set textbox[5].text <t>boor-%massnum</t>
endif;
if (%protons == 6);
set textbox[1].text <t>C</t>;
set textbox[5].text <t>koolstof-%massnum</t>
endif;
if (%protons == 7);
set textbox[1].text <t>N</t>;
set textbox[5].text <t>stikstof-%massnum</t>
endif;
if (%protons == 8);
set textbox[1].text <t>O</t>;
set textbox[5].text <t>zuurstof-%massnum</t>
endif;
if (%protons == 9);
set textbox[1].text <t>F</t>;
set textbox[5].text <t>fluor-%massnum</t>
endif;
if (%protons == 10);
set textbox[1].text <t>Ne</t>;
set textbox[5].text <t>neon-%massnum</t>
endif;
select image all;
remove;
if (%electrons > 0);
set %orb round((10000*%protons)+%electrons);
add image orbital%orb.png (2,1.5);
endif;
add image e%electrons.gif (42.1,14.8);
add image p%protons.gif (43.7,14.8);
add image n%neutrons.gif (45.3,14.8);
select image none;
set %updateNeeded 0;
endif;
1.0
None
-2542797
-3355444
255
0
255
255
orbital10001.png
1
8
15.0
e1.gif
1
9
421.0
148.0
p1.gif
1
10
437.0
148.0
n0.gif
1
11
453.0
148.0
0
0
255
255
false
255
255
255
255
25.0
1
6
32.0
-8.0
5.0
false
Arial
1
14
1
Isotope
404.0
11.0
Arial
0
36
1
1
H
399.0
22.0
1
2
massagetal --> 1
321.0
29.0
1
3
atoomnummer --> 1
307.0
54.0
Arial
1
18
102
102
102
255
1
4
TOTALE LADING = 0
64.0
5.0
1
5
waterstof-1
405.0
75.0
1
Arial
1
12
1
7
e p n
413.0
124.0
false
false
180.0
175.0
false
1
false
179.39320939957506
174.5430307915073
0.005478587965642875
-0.007265333597676406
1
1
2.5
0.1