Periodic Table

By Soubi on Dec 20, 2010

You put it in your calculator and it displays the periodic table.

ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”H”)
:Text(9,35,”1”)
:Text(9,72,”1.0079”)
:Text(15,35,”2”)
:Text(15,3,”He”)
:Text(15,72,”4.003”)
:Text(21,35,”3”)
:Text(21,3,”Li”)
:Text(21,72,”6.941”)
:Text(27,35,”4”)
:Text(27,3,”Be”)
:Text(27,72,”9.01218”)
:Text(33,35,”5”)
:Text(33,3,”B”)
:Text(33,72,”10.811”)
:Text(39,35,”6”)
:Text(39,3,”C”)
:Text(39,72,”12.0107”)
:Text(45,35,”7”)
:Text(45,72,”14.0067”)
:Text(45,3,”N”)
:Text(51,35,”8”)
:Text(51,3,”O”)
:Text(51,72,”15.9994”)
:Text(57,35,”9”)
:Text(57,3,”F”)
:Text(57,72,”18.998”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Ne”)
:Text(9,35,”10”)
:Text(9,72,”20.179”)
:Text(15,35,”11”)
:Text(15,3,”Na”)
:Text(15,72,”22.989”)
:Text(21,35,”12”)
:Text(21,3,”Mg”)
:Text(21,72,”24.305”)
:Text(27,35,”13”)
:Text(27,3,”Al”)
:Text(27,72,”26.982”)
:Text(33,35,”14”)
:Text(33,3,”Si”)
:Text(33,72,”28.086”)
:Text(39,35,”15”)
:Text(39,3,”P”)
:Text(39,72,”30.974”)
:Text(45,35,”16”)
:Text(45,72,”32.066”)
:Text(45,3,”S”)
:Text(51,35,”17”)
:Text(51,3,”Cl”)
:Text(51,72,”35.453”)
:Text(57,35,”18”)
:Text(57,3,”Ar”)
:Text(57,72,”39.948”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”K”)
:Text(9,35,”19”)
:Text(9,72,”39.098”)
:Text(15,35,”20”)
:Text(15,3,”Ca”)
:Text(15,72,”40.078”)
:Text(21,35,”21”)
:Text(21,3,”Sc”)
:Text(21,72,”44.956”)
:Text(27,35,”22”)
:Text(27,3,”Ti”)
:Text(27,72,”47.867”)
:Text(33,35,”23”)
:Text(33,3,”V”)
:Text(33,72,”50.942”)
:Text(39,35,”24”)
:Text(39,3,”Cr”)
:Text(39,72,”51.996”)
:Text(45,35,”25”)
:Text(45,72,”54.938”)
:Text(45,3,”Mn”)
:Text(51,35,”26”)
:Text(51,3,”Fe”)
:Text(51,72,”55.845”)
:Text(57,35,”27”)
:Text(57,3,”Co”)
:Text(57,72,”58.933”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Ni”)
:Text(9,35,”28”)
:Text(9,72,”58.6934”)
:Text(15,35,”29”)
:Text(15,3,”Cu”)
:Text(15,72,”63.546”)
:Text(21,35,”30”)
:Text(21,3,”Zn”)
:Text(21,72,”65.39”)
:Text(27,35,”31”)
:Text(27,3,”Ga”)
:Text(27,72,”69.723”)
:Text(33,35,”32”)
:Text(33,3,”Ge”)
:Text(33,72,”72.61”)
:Text(39,35,”33”)
:Text(39,3,”As”)
:Text(39,72,”74.922”)
:Text(45,35,”34”)
:Text(45,72,”78.96”)
:Text(45,3,”Se”)
:Text(51,35,”35”)
:Text(51,3,”Br”)
:Text(51,72,”79.90”)
:Text(57,35,”36”)
:Text(57,3,”Kr”)
:Text(57,72,”83.80”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Rb”)
:Text(9,35,”37”)
:Text(9,72,”85.468”)
:Text(15,35,”38”)
:Text(15,3,”Sr”)
:Text(15,72,”87.62”)
:Text(21,35,”39”)
:Text(21,3,”Y”)
:Text(21,72,”88.906”)
:Text(27,35,”40”)
:Text(27,3,”Zr”)
:Text(27,72,”91.224”)
:Text(33,35,”41”)
:Text(33,3,”Nb”)
:Text(33,72,”92.906”)
:Text(39,35,”42”)
:Text(39,3,”Mo”)
:Text(39,72,”95.94”)
:Text(45,35,”43”)
:Text(45,72,”97.907”)
:Text(45,3,”Tc”)
:Text(51,35,”44”)
:Text(51,3,”Ru”)
:Text(51,72,”101.07”)
:Text(57,35,”45”)
:Text(57,3,”Rh”)
:Text(57,72,”102.91”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Pd”)
:Text(9,35,”46”)
:Text(9,72,”106.42”)
:Text(15,35,”47”)
:Text(15,3,”Ag”)
:Text(15,72,”107.87”)
:Text(21,35,”48”)
:Text(21,3,”Cd”)
:Text(21,72,”112.41”)
:Text(27,35,”49”)
:Text(27,3,”In”)
:Text(27,72,”114.82”)
:Text(33,35,”50”)
:Text(33,3,”Sn”)
:Text(33,72,”118.710”)
:Text(39,35,”51”)
:Text(39,3,”Sb”)
:Text(39,72,”121.75”)
:Text(45,35,”52”)
:Text(45,72,”127.60”)
:Text(45,3,”Te”)
:Text(51,35,”53”)
:Text(51,3,”I”)
:Text(51,72,”126.90”)
:Text(57,35,”54”)
:Text(57,3,”Xe”)
:Text(57,72,”131.29”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Cs”)
:Text(9,35,”55”)
:Text(9,72,”132.91”)
:Text(15,35,”56”)
:Text(15,3,”Ba”)
:Text(15,72,”137.33”)
:Text(21,35,”57”)
:Text(21,3,”La”)
:Text(21,72,”138.91”)
:Text(27,35,”58”)
:Text(27,3,”Ce”)
:Text(27,72,”140.12”)
:Text(33,35,”59”)
:Text(33,3,”Pr”)
:Text(33,72,”140.908”)
:Text(39,35,”60”)
:Text(39,3,”Nd”)
:Text(39,72,”144.24”)
:Text(45,35,”61”)
:Text(45,72,”144.913”)
:Text(45,3,”Pm”)
:Text(51,35,”62”)
:Text(51,3,”Sm”)
:Text(51,72,”150.36”)
:Text(57,35,”63”)
:Text(57,3,”Eu”)
:Text(57,72,”151.97”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Gd”)
:Text(9,35,”64”)
:Text(9,72,”157.25”)
:Text(15,35,”65”)
:Text(15,3,”Tb”)
:Text(15,72,”158.93”)
:Text(21,35,”66”)
:Text(21,3,”Dy”)
:Text(21,72,”162.50”)
:Text(27,35,”67”)
:Text(27,3,”Ho”)
:Text(27,72,”164.93”)
:Text(33,35,”68”)
:Text(33,3,”Er”)
:Text(33,72,”167.26”)
:Text(39,35,”69”)
:Text(39,3,”Tm”)
:Text(39,72,”168.93”)
:Text(45,35,”70”)
:Text(45,72,”173.04”)
:Text(45,3,”Yb”)
:Text(51,35,”71”)
:Text(51,3,”Lu”)
:Text(51,72,”174.97”)
:Text(57,35,”72”)
:Text(57,3,”Hf”)
:Text(57,72,”178.49”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Ta”)
:Text(9,35,”73”)
:Text(9,72,”180.95”)
:Text(15,35,”74”)
:Text(15,3,”W”)
:Text(15,72,”183.84”)
:Text(21,35,”75”)
:Text(21,3,”Re”)
:Text(21,72,”186.21”)
:Text(27,35,”76”)
:Text(27,3,”Os”)
:Text(27,72,”190.23”)
:Text(33,35,”77”)
:Text(33,3,”Ir”)
:Text(33,72,”192.22”)
:Text(39,35,”78”)
:Text(39,3,”Pt”)
:Text(39,72,”195.08”)
:Text(45,35,”79”)
:Text(45,72,”196.97”)
:Text(45,3,”Ag”)
:Text(51,35,”80”)
:Text(51,3,”Hg”)
:Text(51,72,”200.59”)
:Text(57,35,”81”)
:Text(57,3,”Tl”)
:Text(57,72,”204.38”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Pb”)
:Text(9,35,”82”)
:Text(9,72,”207.2”)
:Text(15,35,”83”)
:Text(15,3,”Bi”)
:Text(15,72,”208.98”)
:Text(21,35,”84”)
:Text(21,3,”Po”)
:Text(21,72,”208.98”)
:Text(27,35,”85”)
:Text(27,3,”At”)
:Text(27,72,”209.98”)
:Text(33,35,”86”)
:Text(33,3,”Rn”)
:Text(33,72,”222.02”)
:Text(39,35,”87”)
:Text(39,3,”Fr”)
:Text(39,72,”223.02”)
:Text(45,35,”88”)
:Text(45,72,”226.03”)
:Text(45,3,”Ra”)
:Text(51,35,”89”)
:Text(51,3,”Ac”)
:Text(51,72,”227.03”)
:Text(57,35,”90”)
:Text(57,3,”Th”)
:Text(57,72,”232.04”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Pa”)
:Text(9,35,”91”)
:Text(9,72,”231.04”)
:Text(15,35,”92”)
:Text(15,3,”U”)
:Text(15,72,”238.03”)
:Text(21,35,”93”)
:Text(21,3,”Np”)
:Text(21,72,”237.05”)
:Text(27,35,”94”)
:Text(27,3,”Pu”)
:Text(27,72,”244.06”)
:Text(33,35,”95”)
:Text(33,3,”Am”)
:Text(33,72,”243.06”)
:Text(39,35,”96”)
:Text(39,3,”Cm”)
:Text(39,72,”247.07”)
:Text(45,35,”97”)
:Text(45,72,”247.07”)
:Text(45,3,”Bk”)
:Text(51,35,”98”)
:Text(51,3,”Cf”)
:Text(51,72,”251.08”)
:Text(57,35,”99”)
:Text(57,3,”Es”)
:Text(57,72,”252.08”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Fm”)
:Text(9,35,”100”)
:Text(9,72,”257.10”)
:Text(15,35,”101”)
:Text(15,3,”Md”)
:Text(15,72,”258.10”)
:Text(21,35,”102”)
:Text(21,3,”No”)
:Text(21,72,”259.10”)
:Text(27,35,”103”)
:Text(27,3,”Lr”)
:Text(27,72,”262.11”)
:Text(33,35,”104”)
:Text(33,3,”Rf”)
:Text(33,72,”261.11”)
:Text(39,35,”105”)
:Text(39,3,”Db”)
:Text(39,72,”262.11”)
:Text(45,35,”106”)
:Text(45,72,”263.12”)
:Text(45,3,”Sg”)
:Text(51,35,”107”)
:Text(51,3,”Bh”)
:Text(51,72,”262.12”)
:Text(57,35,”108”)
:Text(57,3,”Hs”)
:Text(57,72,”265”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Mt”)
:Text(9,35,”109”)
:Text(9,72,”266”)
:Text(15,35,”110”)
:Text(15,3,”Uun”)
:Text(15,72,”269”)
:Text(21,35,”11”)
:Text(21,3,”Uuu”)
:Text(21,72,”272”)
:Text(27,35,”112”)
:Text(27,3,”Uub”)
:Text(27,72,”277”)
:Text(33,35,”113”)
:Text(33,3,”X”)
:Text(33,72,”X”)
:Text(39,35,”114”)
:Text(39,3,”Uuq”)
:Text(39,72,”285”)
:Text(45,35,”115”)
:Text(45,72,”X”)
:Text(45,3,”X”)
:Text(51,35,”116”)
:Text(51,3,”Uuh”)
:Text(51,72,”289”)
:Text(57,35,”117”)
:Text(57,3,”X”)
:Text(57,72,”X”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrHome
:AxesOff
:CoordOff
:PlotsOff
:47->Xmax
:-47->Xmin
:1->Xscl
:-31->Ymin
:31->Ymax
:1->Yscl
:ClrDraw
:Text(9,3,”Uuo”)
:Text(9,35,”118”)
:Text(9,72,”293”)
:Line(47,24,-47,24)
:Text(1,1,”ELEMENT”)
:Line(-18,31,-18,-31)
:Text(1,31,”ATOMIC NUM”)
:Line(20,31,20,-31)
:Text(1,72,”A MASS”)
:Pause
:ClrDraw
:CoordOn
:AxesOn
:ClrHome
:stop

;/ Created by Paul ;/Stehley
;/Title: Periodic Table ;/Part  1 ]
;/ [ The 
;/ “:ClrHome
;/:AxesOff
;/:CoordOff
;/:PlotsOff “
;/Is optional
;/for all columns
;/except for the 
;/beginning column ] 

Comments

Sign in to comment.
Soubi   -  Dec 25, 2010

;D i know that sunslayer...i just picked one since Hawkee doesnt have a " other " >.> choice

 Respond  
sunslayer   -  Dec 21, 2010

this is ti-basic not C++

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.