home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / crystal.zip / S2CL2.DAT < prev    next >
Text File  |  1988-06-26  |  2KB  |  46 lines
  1. chemical_name("S2Cl2")
  2. chemical(a(4,"Cl",o("3p(z)",1,"σ",1)))
  3. chemical(a(1,"S ",o("3p(z)",1,"σ",4)))
  4. chemical(a(3,"Cl",o("3p(z)",1,"σ",2)))
  5. chemical(a(2,"S ",o("3p(z)",1,"σ",3)))
  6. chemical(a(2,"S ",o("3p(y)",1,"σ",1)))
  7. chemical(a(1,"S ",o("3p(y)",1,"σ",2)))
  8. chemical(a(1,"S ",o("3s",2,"no",0)))
  9. chemical(a(1,"S ",o("3p(x)",2,"no",0)))
  10. chemical(a(1,"S ",o("3d(a)",0,"no",0)))
  11. chemical(a(1,"S ",o("3d(b)",0,"no",0)))
  12. chemical(a(1,"S ",o("3d(c)",0,"no",0)))
  13. chemical(a(1,"S ",o("3d(d)",0,"no",0)))
  14. chemical(a(1,"S ",o("3d(e)",0,"no",0)))
  15. chemical(a(2,"S ",o("3s",2,"no",0)))
  16. chemical(a(2,"S ",o("3p(x)",2,"no",0)))
  17. chemical(a(2,"S ",o("3d(a)",0,"no",0)))
  18. chemical(a(2,"S ",o("3d(b)",0,"no",0)))
  19. chemical(a(2,"S ",o("3d(c)",0,"no",0)))
  20. chemical(a(2,"S ",o("3d(d)",0,"no",0)))
  21. chemical(a(2,"S ",o("3d(e)",0,"no",0)))
  22. chemical(a(3,"Cl",o("3s",2,"no",0)))
  23. chemical(a(3,"Cl",o("3p(x)",2,"no",0)))
  24. chemical(a(3,"Cl",o("3p(y)",2,"no",0)))
  25. chemical(a(3,"Cl",o("3d(a)",0,"no",0)))
  26. chemical(a(3,"Cl",o("3d(b)",0,"no",0)))
  27. chemical(a(3,"Cl",o("3d(c)",0,"no",0)))
  28. chemical(a(3,"Cl",o("3d(d)",0,"no",0)))
  29. chemical(a(3,"Cl",o("3d(e)",0,"no",0)))
  30. chemical(a(4,"Cl",o("3s",2,"no",0)))
  31. chemical(a(4,"Cl",o("3p(x)",2,"no",0)))
  32. chemical(a(4,"Cl",o("3p(y)",2,"no",0)))
  33. chemical(a(4,"Cl",o("3d(a)",0,"no",0)))
  34. chemical(a(4,"Cl",o("3d(b)",0,"no",0)))
  35. chemical(a(4,"Cl",o("3d(c)",0,"no",0)))
  36. chemical(a(4,"Cl",o("3d(d)",0,"no",0)))
  37. chemical(a(4,"Cl",o("3d(e)",0,"no",0)))
  38. atomlocation(4,l(0,-1378,2743,1.05,0,62.83185308,0,2316),1)
  39. atomlocation(3,l(0,1378,-2743,1.05,3.141590881,62.83185308,0,2316),1)
  40. atomlocation(2,l(0,1378,0,1.06,0,31.41592654,0,1546),1)
  41. atomlocation(1,l(0,-1378,0,1.06,6.2832,6.2832,6.2832,1546),1)
  42. commandactive("Files")
  43. viewshown("Rht")
  44. grid(8)
  45. atom_count(5)
  46.