File:Monoisotopic, mononuclidic, radioactive elements.svg
Original file (SVG file, nominally 1,098 × 588 pixels, file size: 26 KB)
This file is from Wikimedia Commons and may be used by other projects. The description on its file description page there is shown below.
Summary
DescriptionMonoisotopic, mononuclidic, radioactive elements.svg |
English: Elements:
Natural radionuclides:
The choice of colors is actually not erratic. The presence of green (RGB), or absence of magenta (CMYK), indicates stability (existence of at least one stable isotope). 209Bi is practically stable, so it is made orange, i.e. placed midway. And all mononuclidic elements does not have a blue (RGB) component. The orange color means practically stable nuclides (with half-life greater than 1012 years) |
Date | – 2012-10-22 |
Source | Own work |
Author | Incnis Mrsi |
Other versions | |
SVG development InfoField | This symbol was created with perl. This symbol uses translateable embedded text. |
Source code
<syntaxhighlight lang="perl">
- !/usr/bin/perl
my @elements = (
- sym, pe, g, RGB color, mass, natural radionuclide (0=no, "+"=many, undef=controversial or already stated)
["n", 0, 18, 0, 1, 0 ], ["H", 1, 1, "#FFF", 0, 3 ], ["He", 1, 18, "#FFF", 0, 0 ], ["Li", 2, 1, "#FFF", 0, 0 ], ["Be", 2, 2, "#0F0", 9], ["B", 2, 13, "#FFF", 0, 0 ], ["C", 2, 14, "#FFF", 0, 14 ], ["N", 2, 15, "#FFF", 0, 0 ], ["O", 2, 16, "#FFF", 0, 0 ], ["F", 2, 17, "#0F0", 19], ["Ne", 2, 18, "#FFF", 0, 0 ], ["Na", 3, 1, "#0F0", 23], ["Mg", 3, 2, "#FFF", 0, 0 ], ["Al", 3, 13, "#0F0", 27], ["Si", 3, 14, "#FFF", 0, 0 ], ["P", 3, 15, "#0F0", 31], ["S", 3, 16, "#FFF", 0, 0 ], ["Cl", 3, 17, "#FFF", 0], ["Ar", 3, 18, "#FFF", 0, 0 ], ["K", 4, 1, "#FFF", 0, 40 ], ["Ca", 4, 2, "#FFF", 0, 48, "_" ], ["Sc", 4, 3, "#0F0", 45], ["Ti", 4, 4, "#FFF", 0, 0 ], ["V", 4, 5, "#9FF", 51, 50, "_" ], ["Cr", 4, 6, "#FFF", 0, 0 ], ["Mn", 4, 7, "#0F0", 55], ["Fe", 4, 8, "#FFF", 0, 0 ], ["Co", 4, 9, "#0F0", 59], ["Ni", 4, 10, "#FFF", 0, 0 ], ["Cu", 4, 11, "#FFF", 0, 0 ], ["Zn", 4, 12, "#FFF", 0, 0 ], ["Ga", 4, 13, "#FFF", 0, 0 ], ["Ge", 4, 14, "#FFF", 0, 76, "_" ], ["As", 4, 15, "#0F0", 75], ["Se", 4, 16, "#FFF", 0, 82, "_" ], ["Br", 4, 17, "#FFF", 0, 0 ], ["Kr", 4, 18, "#FFF", 0, 78, "_" ], ["Rb", 5, 1, "#0FF", 85, 87 ], ["Sr", 5, 2, "#FFF", 0, 0 ], ["Y", 5, 3, "#0F0", 89], ["Zr", 5, 4, "#FFF", 0, 96, "_" ], ["Nb", 5, 5, "#0F0", 93], ["Mo", 5, 6, "#FFF", 0, 100, "_" ], ["Tc", 5, 7, "#F0F", 0], ["Ru", 5, 8, "#FFF", 0, 0 ], ["Rh", 5, 9, "#0F0", 103], ["Pd", 5, 10, "#FFF", 0, 0 ], ["Ag", 5, 11, "#FFF", 0, 0 ], ["Cd", 5, 12, "#FFF", 0, "_" ], ["In", 5, 13, "#9FF", 113, 115, "_" ], ["Sn", 5, 14, "#FFF", 0, 0 ], ["Sb", 5, 15, "#FFF", 0, 0 ], ["Te", 5, 16, "#FFF", 0, "+" ], ["I", 5, 17, "#0F0", 127], ["Xe", 5, 18, "#FFF", 0, "+" ], ["Cs", 6, 1, "#0F0", 133], ["Ba", 6, 2, "#FFF", 0, 130, "_" ], ["La", 6, 0, "#0FF", 139, 138], ["Ce", 6, 0, "#FFF", 0, 0 ], ["Pr", 6, 0, "#0F0", 141], ["Nd", 6, 0, "#FFF", 0, "_" ], ["Pm", 6, 0, "#F0F", 0], ["Sm", 6, 0, "#FFF", 0, "+" ], ["Eu", 6, 0, "#9FF", 153, 151, "_" ], ["Gd", 6, 0, "#FFF", 0, 152, "_" ], ["Tb", 6, 0, "#0F0", 159], ["Dy", 6, 0, "#FFF", 0, 0 ], ["Ho", 6, 0, "#0F0", 165], ["Er", 6, 0, "#FFF", 0, 0 ], ["Tm", 6, 0, "#0F0", 169], ["Yb", 6, 0, "#FFF", 0, 0 ], ["Lu", 6, 0, "#0FF", 175, 176 ], ["Hf", 6, 4, "#FFF", 0, 174, "_" ], ["Ta", 6, 5, "#FFF", 0, 0 ], ["W", 6, 6, "#FFF", 0, 180, "_" ], ["Re", 6, 7, "#0FF", 185, 187 ], ["Os", 6, 8, "#FFF", 0, 186, "_" ], ["Ir", 6, 9, "#FFF", 0, 0 ], ["Pt", 6, 10, "#FFF", 0, 190 ], ["Au", 6, 11, "#0F0", 197], ["Hg", 6, 12, "#FFF", 0, 0 ], ["Tl", 6, 13, "#FFF", 0, 0 ], ["Pb", 6, 14, "#FFF", 0, 0 ], ["Bi", 6, 15, "#F60", 209], ["Po", 6, 16, "#F0F", 0], ["At", 6, 17, "#F0F", 0], ["Rn", 6, 18, "#F0F", 0], ["Fr", 7, 1, "#F0F", 0], ["Ra", 7, 2, "#F0F", 0], ["Ac", 7, 0, "#F0F", 0], ["Th", 7, 0, "#F00", 0, "+" ], ["Pa", 7, 0, "#F00", 231], ["U", 7, 0, "#F0F", 0, "+" ], ["Np", 7, 0, "#F0F", 0], ["Pu", 7, 0, "#F0F", 0], ["Am", 7, 0, "#F0F", 0, 0 ], ["Cm", 7, 0, "#F0F", 0, 0 ], ["Bk", 7, 0, "#F0F", 0, 0 ], ["Cf", 7, 0, "#F0F", 0, 0 ], ["Es", 7, 0, "#F0F", 0, 0 ], ["Fm", 7, 0, "#F0F", 0, 0 ], ["Md", 7, 0, "#F0F", 0, 0 ], ["No", 7, 0, "#F0F", 0, 0 ], ["Lr", 7, 0, "#F0F", 0, 0 ], ["Rf", 7, 4, "#F0F", 0, 0 ], ["Db", 7, 5, "#F0F", 0, 0 ], ["Sg", 7, 6, "#F0F", 0, 0 ], ["Bh", 7, 7, "#F0F", 0, 0 ], ["Hs", 7, 8, "#F0F", 0, 0 ], ["Mt", 7, 9, "#F0F", 0, 0 ], ["Ds", 7, 10, "#F0F", 0, 0 ], ["Rg", 7, 11, "#F0F", 0, 0 ], ["Cn", 7, 12, "#F0F", 0, 0 ], ["Nh", 7, 13, "#F0F", 0, 0 ], ["Fl", 7, 14, "#F0F", 0, 0 ], ["Mc", 7, 15, "#F0F", 0, 0 ], ["Lv", 7, 16, "#F0F", 0, 0 ], ["Ts", 7, 17, "#F0F", 0, 0 ], ["Og", 7, 18, "#F0F", 0, 0 ], );
sub start_box {
my $fill=""; $fill=' style="fill:'.$_[2].'"' if ($_[2]); print "<g> <rect$fill x=\"".(20*$_[1]-19)."\" width=\"18\" y=\"".($_[0]-19)."\" height=\"18\"/> ";
};
sub make_tria {
my $fill=""; $fill=' style="fill:'.$_[2].'"' if ($_[2]); print "<polyline$fill points=\"" .(20*$_[1]-19).",".($_[0]-19)." " .(20*$_[1]-12).",".($_[0]-19)." " .(20*$_[1]-19).",".($_[0]-14) ."\"/> ";
};
sub make_text {
my $cl=""; $cl=' class="'.$_[3].'"' if ($_[3]); print "<text$cl x=\"".$_[0]."\" y=\"".$_[1]."\">".$_[2]."</text> ";
};
sub smart_symbol {
make_text ($_[0], $_[1], $_[2], (length($_[2])>2)?"smallsym":"sym");
};
sub smart_number {
my $x = $_[0] - 3; my $cl = "num"; if ( $_[2] >=100 ) { $cl = "smallnum"; $x -= 3; } elsif ( $_[2] >=10 ) { $x -= 3; }; make_text ($x, $_[1], $_[2], $cl);
};
sub print_Z {
my $ref = $elements[$_[0]]; return unless $ref; my $intro; my $base_y = 20 * $ref->[1]; my $group = $ref->[2]; if ($group == 1) { # First element in a period $intro = $ref->[1]; } elsif (!$group) { if ( $ref->[1] == 6) { # Lanthanoid if ($_[0] == 57) { # Lanthanum start_box($base_y, 3); make_text (45, $base_y-8, "*", "sym"); print "</g>"; $intro = "* lanthanoids"; }; $base_y = 168; $group = $_[0] - 54; } elsif ( $ref->[1] == 7) { # Actinoid if ($_[0] == 89) { # Actinium start_box($base_y, 3); make_text (43, $base_y-8, "**", "sym"); print "</g>"; $intro = "** actinoids"; }; $base_y = 190; $group = $_[0] - 86; } else { return; }; }; if ($intro) { print "\n"; make_text (($intro=~/^\*/)?3:-5, $base_y-10, $intro) if ($intro); print "\n"; }; start_box ($base_y, $group, $ref->[3] # background (if defined) ); if (defined($ref->[5])) { if ($ref->[5] =~ /^[\+_]/) { # several radionuclides print '<rect class="rnm"'.(($ref->[5]=~/^_/)?' style="fill:#F96"':) .' x="'.(20*$group-19).'" width="5" y="'.($base_y-19).'" height="4"/> '; } elsif ($ref->[5]) { make_tria ($base_y, $group, ($ref->[6])?"#F60" #several "radionuclides" are practically stable :"#F00"); } else { make_tria ($base_y, $group); }; # no radionuclides (the default style) }; smart_number (20*$group-11, $base_y-5, $_[0]); # Atomic number smart_symbol (20*$group-13, $base_y-9, $ref->[0]); # Symbol smart_number (20*$group-12, $base_y-11, $ref->[4]) if ($ref->[4]); # Mass number print "</g>\n"; # end box
};
print "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\ <!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\" \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\">\ <svg xmlns=\"http://www.w3.org/2000/svg\" xml:space=\"preserve\" width=\"1098\" height=\"588\" viewBox=\"-5 -6 366 196\"\
xmlns:xlink=\"http://www.w3.org/1999/xlink\">\ <defs>\ <style type=\"text/css\">\ <![CDATA[\
rect {stroke:#666; stroke-width:1px; fill:none} /* for cells */\ text {fill:#000; font-family:sans; font-size:5px; stroke:none} /* periods and groups */\ .sym {font-family:serif; font-size:7px}\ .smallsym {font-family:serif; font-size:5.5px} /* Uu? */\ .num {font-size:4px} /* up to 99 */\ .smallnum {font-size:3px} /* 100 and greater */\ polyline {stroke:none; fill:#000} /* this default for \"no radionuclides\" */\ .rnm {fill:#7F00FF; stroke:none} /* several radionuclides */\
]]>\ </style>\ </defs>\n\n";
my $group;
make_text ( 8, -1, 1); make_text (28, 18, 2);
for ( $group=3; $group<=12; $group++) { make_text(20*$group-12, 58, $group); }; for ($group=13; $group<=17; $group++) { make_text(20*$group-14, 18, $group); };
make_text (346, -1, 18);
my $Z; for ($Z=1; $Z<=118; $Z++) { print_Z ($Z); }; print "</svg>\n"; }} }}
Licensing
- You are free:
- to share – to copy, distribute and transmit the work
- to remix – to adapt the work
- Under the following conditions:
- attribution – You must give appropriate credit, provide a link to the license, and indicate if changes were made. You may do so in any reasonable manner, but not in any way that suggests the licensor endorses you or your use.
- share alike – If you remix, transform, or build upon the material, you must distribute your contributions under the same or compatible license as the original.
Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.2 or any later version published by the Free Software Foundation; with no Invariant Sections, no Front-Cover Texts, and no Back-Cover Texts. A copy of the license is included in the section entitled GNU Free Documentation License.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue |
Items portrayed in this file
depicts
No value exists for this property
some value
some value
some value
image/svg+xml
21 October 2012
File history
Click on a date/time to view the file as it appeared at that time.
Date/Time | Thumbnail | Dimensions | User | Comment | |
---|---|---|---|---|---|
current | 04:03, 15 July 2019 | 1,098 × 588 (26 KB) | wikimediacommons>Incnis Mrsi | w:Isotopes of thorium // Editing SVG source code using c:User:Rillke/SVGedit.js |
File usage
There are no pages that use this file.
Metadata
This file contains additional information, probably added from the digital camera or scanner used to create or digitize it.
If the file has been modified from its original state, some details may not fully reflect the modified file.
Width | 1098 |
---|---|
Height | 588 |