home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / chemical.zip / H2SO4.DAT < prev    next >
Text File  |  1989-11-17  |  928b  |  25 lines
  1. chemical_name("H2SO4")
  2. chemical(a(7,"H ",o("1s",1,"σ",3)))
  3. chemical(a(3,"O ",o("2p(z)",1,"σ",7)))
  4. chemical(a(6,"H ",o("1s",1,"σ",2)))
  5. chemical(a(2,"O ",o("2p(z)",1,"σ",6)))
  6. chemical(a(5,"O ",o("2p(y)",1,"σ",1)))
  7. chemical(a(1,"S ",o("sp3~",1,"σ",5)))
  8. chemical(a(4,"O ",o("2p(y)",1,"σ",1)))
  9. chemical(a(1,"S ",o("sp3^",1,"σ",4)))
  10. chemical(a(3,"O ",o("2p(y)",1,"σ",1)))
  11. chemical(a(1,"S ",o("sp3'",1,"σ",3)))
  12. chemical(a(2,"O ",o("2p(y)",1,"σ",1)))
  13. chemical(a(1,"S ",o("sp3`",1,"σ",2)))
  14. atomlocation(1,l(-310,-399,-10,1.03,0,0,0,1546),1)
  15. atomlocation(2,l(1526,-1149,1050,0.7,0,0,0,269),1)
  16. atomlocation(3,l(-310,1850,-10,0.7,0,0,0,269),1)
  17. atomlocation(4,l(-2146,-1149,1050,0.7,0,0,0,269),1)
  18. atomlocation(5,l(-310,-1149,-2130,0.7,0,0,0,269),1)
  19. atomlocation(6,l(1860,147,1454,0.375,0,0,0,3848),1)
  20. atomlocation(7,l(-310,1850,-1407,0.375,0,0,0,3848),1)
  21. commandactive("Files")
  22. viewshown("Fnt")
  23. grid(8)
  24. atom_count(8)
  25.