home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / crystal.zip / PCL5.DAT < prev    next >
Text File  |  1988-06-26  |  896b  |  23 lines
  1. chemical_name("PCl5")
  2. chemical(a(6,"Cl",o("3s",1,"σ",1)))
  3. chemical(a(1,"P ",o("dsp3+",1,"σ",6)))
  4. chemical(a(5,"Cl",o("3s",1,"σ",1)))
  5. chemical(a(1,"P ",o("dsp3'",1,"σ",5)))
  6. chemical(a(4,"Cl",o("3p(z)",1,"σ",1)))
  7. chemical(a(1,"P ",o("dsp3~",1,"σ",4)))
  8. chemical(a(3,"Cl",o("3p(z)",1,"σ",1)))
  9. chemical(a(1,"P ",o("dsp3^",1,"σ",3)))
  10. chemical(a(2,"Cl",o("3p(z)",1,"σ",1)))
  11. chemical(a(1,"P ",o("dsp3`",1,"σ",2)))
  12. atomlocation(6,l(-1398,0,-2421,1.05,0,-4.1887853034,0,2316),1)
  13. atomlocation(5,l(0,-2795,0,1.05,1.57079633,0,4.712387211,2316),1)
  14. atomlocation(4,l(-1397,0,2421,1.05,0,62.308264107,1.57079633,2316),1)
  15. atomlocation(3,l(2795,0,0,1.05,0,64.40264941,4.712387201,2316),1)
  16. atomlocation(2,l(0,2795,0,1.05,4.712387201,62.83185308,0,2316),1)
  17. atomlocation(1,l(0,0,0,1.1,6.2832,6.2832,6.2832,520),1)
  18. commandactive("Files")
  19. viewshown("Lft")
  20. grid(8)
  21. atom_count(7)
  22. valencelist(1,1,5)
  23.