320.0
width
height
320
490
490.0
10.0
2
filename
page3$0.mml
date
1216237898000
url
F:\Users\marc\Documents\Pius X\5V\Atoombouw\page3$0.mml
size
22842
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[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[4].text <t>waterstof-%massnum</t>
endif;
if (%protons == 2);
set textbox[1].text <t>He</t>;
set textbox[4].text <t>helium-%massnum</t>
endif;
if (%protons == 3);
set textbox[1].text <t>Li</t>;
set textbox[4].text <t>lithium-%massnum</t>
endif;
if (%protons == 4);
set textbox[1].text <t>Be</t>;
set textbox[4].text <t>beryllium-%massnum</t>
endif;
if (%protons == 5);
set textbox[1].text <t>B</t>;
set textbox[4].text <t>boor-%massnum</t>
endif;
if (%protons == 6);
set textbox[1].text <t>C</t>;
set textbox[4].text <t>koolstof-%massnum</t>
endif;
if (%protons == 7);
set textbox[1].text <t>N</t>;
set textbox[4].text <t>stikstof-%massnum</t>
endif;
if (%protons == 8);
set textbox[1].text <t>O</t>;
set textbox[4].text <t>zuurstof-%massnum</t>
endif;
if (%protons == 9);
set textbox[1].text <t>F</t>;
set textbox[4].text <t>fluor-%massnum</t>
endif;
if (%protons == 10);
set textbox[1].text <t>Ne</t>;
set textbox[4].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,0);
endif;
add image n%neutrons.gif (45.3,14.8);
add image p%protons.gif (43.7,14.8);
add image e%electrons.gif (42.1,14.8);
select image none;
set %updateNeeded 0;
endif;
1.0
None
-2542797
-3355444
255
0
255
255
orbital10001.png
1
7
0.0
n0.gif
1
8
453.0
148.0
p1.gif
1
9
437.0
148.0
e1.gif
1
10
421.0
148.0
0
0
255
255
false
255
255
255
255
25.0
1
5
32.0
-8.0
5.0
false
Arial
1
14
1
Isotoop
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
1
4
waterstof-1
405.0
75.0
1
Arial
1
12
1
6
e p n
413.0
124.0
false
false
180.0
160.0
false
1
false
180.32776616819297
159.31468924821968
-0.008208851155705016
-0.003926163660151339
1
1
2.5
0.1