home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / crystal.zip / C6H12.DAT < prev    next >
Text File  |  1988-10-09  |  2KB  |  60 lines
  1. chemical_name("C6H12 Ring")
  2. chemical(a(18,"H ",o("1s",1,"σ",6)))
  3. chemical(a(6,"C ",o("sp3^",1,"σ",18)))
  4. chemical(a(17,"H ",o("1s",1,"σ",4)))
  5. chemical(a(4,"C ",o("sp3'",1,"σ",17)))
  6. chemical(a(16,"H ",o("1s",1,"σ",6)))
  7. chemical(a(6,"C ",o("sp3~",1,"σ",16)))
  8. chemical(a(15,"H ",o("1s",1,"σ",5)))
  9. chemical(a(5,"C ",o("sp3'",1,"σ",15)))
  10. chemical(a(14,"H ",o("1s",1,"σ",5)))
  11. chemical(a(5,"C ",o("sp3~",1,"σ",14)))
  12. chemical(a(13,"H ",o("1s",1,"σ",4)))
  13. chemical(a(4,"C ",o("sp3~",1,"σ",13)))
  14. chemical(a(12,"H ",o("1s",1,"σ",3)))
  15. chemical(a(3,"C ",o("sp3`",1,"σ",12)))
  16. chemical(a(11,"H ",o("1s",1,"σ",3)))
  17. chemical(a(3,"C ",o("sp3~",1,"σ",11)))
  18. chemical(a(10,"H ",o("1s",1,"σ",2)))
  19. chemical(a(2,"C ",o("sp3^",1,"σ",10)))
  20. chemical(a(9,"H ",o("1s",1,"σ",2)))
  21. chemical(a(2,"C ",o("sp3~",1,"σ",9)))
  22. chemical(a(8,"H ",o("1s",1,"σ",1)))
  23. chemical(a(1,"C ",o("sp3'",1,"σ",8)))
  24. chemical(a(7,"H ",o("1s",1,"σ",1)))
  25. chemical(a(1,"C ",o("sp3`",1,"σ",7)))
  26. chemical(a(1,"C ",o("sp3~",1,"σ",6)))
  27. chemical(a(6,"C ",o("sp3`",1,"σ",1)))
  28. chemical(a(6,"C ",o("sp3'",1,"σ",5)))
  29. chemical(a(5,"C ",o("sp3`",1,"σ",6)))
  30. chemical(a(5,"C ",o("sp3^",1,"σ",4)))
  31. chemical(a(4,"C ",o("sp3`",1,"σ",5)))
  32. chemical(a(4,"C ",o("sp3^",1,"σ",3)))
  33. chemical(a(3,"C ",o("sp3'",1,"σ",4)))
  34. chemical(a(3,"C ",o("sp3^",1,"σ",2)))
  35. chemical(a(2,"C ",o("sp3`",1,"σ",3)))
  36. chemical(a(2,"C ",o("sp3'",1,"σ",1)))
  37. chemical(a(1,"C ",o("sp3^",1,"σ",2)))
  38. atomlocation(1,l(1619,-32,924,0.772,0,0,0,1290),1)
  39. atomlocation(2,l(-12,-701,1883,0.772,0,0,0,1290),1)
  40. atomlocation(3,l(-1596,179,1018,0.772,0,0,0,1290),1)
  41. atomlocation(4,l(-1612,-102,-969,0.772,0,0,0,1290),1)
  42. atomlocation(5,l(26,738,-1770,0.772,0,0,0,1290),1)
  43. atomlocation(6,l(1637,-191,-1015,0.772,0,0,0,1290),1)
  44. atomlocation(7,l(2839,-529,1622,0.375,0,0,0,3848),1)
  45. atomlocation(8,l(1619,1459,924,0.375,0,0,0,3848),1)
  46. atomlocation(9,l(-95,-2177,1685,0.375,0,0,0,3848),1)
  47. atomlocation(10,l(-11,-388,3341,0.375,0,0,0,3848),1)
  48. atomlocation(11,l(-2835,-400,1612,0.375,0,0,0,3848),1)
  49. atomlocation(12,l(-1541,1640,1313,0.375,0,0,0,3848),1)
  50. atomlocation(13,l(-2829,527,-1557,0.375,0,0,0,3848),1)
  51. atomlocation(14,l(62,2180,-1391,0.375,0,0,0,3848),1)
  52. atomlocation(15,l(32,614,-3256,0.375,0,0,0,3848),1)
  53. atomlocation(16,l(1505,-1638,-1348,0.375,0,0,0,3848),1)
  54. atomlocation(17,l(-1616,-1564,-1264,0.375,0,0,0,3848),1)
  55. atomlocation(18,l(2801,389,-1744,0.375,0,0,0,3848),1)
  56. commandactive("Files")
  57. viewshown("Top")
  58. grid(8)
  59. atom_count(19)
  60.