home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / crystal.zip / HPO3.DAT < prev    next >
Text File  |  1988-10-09  |  3KB  |  82 lines
  1. chemical_name("HPO3  polymerization")
  2. chemical(a(26,"H ",o("1s",1,"σ",22)))
  3. chemical(a(22,"O ",o("sp'",1,"σ",26)))
  4. chemical(a(25,"H ",o("1s",1,"σ",19)))
  5. chemical(a(19,"O ",o("sp'",1,"σ",25)))
  6. chemical(a(24,"O ",o("sp`",1,"σ",18)))
  7. chemical(a(18,"P ",o("sp3~",1,"σ",24)))
  8. chemical(a(23,"O ",o("sp`",1,"σ",18)))
  9. chemical(a(18,"P ",o("sp3^",1,"σ",23)))
  10. chemical(a(22,"O ",o("sp`",1,"σ",18)))
  11. chemical(a(18,"P ",o("sp3'",1,"σ",22)))
  12. chemical(a(21,"O ",o("sp`",1,"σ",17)))
  13. chemical(a(17,"P ",o("sp3~",1,"σ",21)))
  14. chemical(a(20,"O ",o("sp`",1,"σ",17)))
  15. chemical(a(17,"P ",o("sp3^",1,"σ",20)))
  16. chemical(a(19,"O ",o("sp`",1,"σ",17)))
  17. chemical(a(17,"P ",o("sp3'",1,"σ",19)))
  18. chemical(a(18,"P ",o("sp3`",1,"σ",14)))
  19. chemical(a(14,"O ",o("sp'",1,"σ",18)))
  20. chemical(a(17,"P ",o("sp3`",1,"σ",10)))
  21. chemical(a(10,"O ",o("sp'",1,"σ",17)))
  22. chemical(a(16,"H ",o("1s",1,"σ",13)))
  23. chemical(a(13,"O ",o("sp'",1,"σ",16)))
  24. chemical(a(15,"H ",o("1s",1,"σ",9)))
  25. chemical(a(9,"O ",o("sp`",1,"σ",15)))
  26. chemical(a(14,"O ",o("sp`",1,"σ",8)))
  27. chemical(a(8,"P ",o("sp3~",1,"σ",14)))
  28. chemical(a(13,"O ",o("sp`",1,"σ",8)))
  29. chemical(a(8,"P ",o("sp3^",1,"σ",13)))
  30. chemical(a(12,"O ",o("sp`",1,"σ",8)))
  31. chemical(a(8,"P ",o("sp3'",1,"σ",12)))
  32. chemical(a(11,"O ",o("sp`",1,"σ",7)))
  33. chemical(a(7,"P ",o("sp3~",1,"σ",11)))
  34. chemical(a(10,"O ",o("sp`",1,"σ",7)))
  35. chemical(a(7,"P ",o("sp3^",1,"σ",10)))
  36. chemical(a(9,"O ",o("sp'",1,"σ",7)))
  37. chemical(a(7,"P ",o("sp3`",1,"σ",9)))
  38. chemical(a(8,"P ",o("sp3`",1,"σ",4)))
  39. chemical(a(4,"O ",o("sp'",1,"σ",8)))
  40. chemical(a(7,"P ",o("sp3'",1,"σ",2)))
  41. chemical(a(2,"O ",o("sp`",1,"σ",7)))
  42. chemical(a(6,"H ",o("1s",1,"σ",5)))
  43. chemical(a(5,"O ",o("sp'",1,"σ",6)))
  44. chemical(a(5,"O ",o("sp`",1,"σ",1)))
  45. chemical(a(1,"P ",o("sp3~",1,"σ",5)))
  46. chemical(a(4,"O ",o("sp`",1,"σ",1)))
  47. chemical(a(1,"P ",o("sp3^",1,"σ",4)))
  48. chemical(a(3,"O ",o("sp`",1,"σ",1)))
  49. chemical(a(1,"P ",o("sp3'",1,"σ",3)))
  50. chemical(a(2,"O ",o("sp'",1,"σ",1)))
  51. chemical(a(1,"P ",o("sp3`",1,"σ",2)))
  52. atomlocation(1,l(14,482,-572,1.12,0,0,0,520),1)
  53. atomlocation(2,l(1822,-255,463,0.58,0,0,0,269),1)
  54. atomlocation(3,l(14,2692,-572,0.58,0,0,0,269),1)
  55. atomlocation(4,l(-1782,-255,484,0.58,0,0,0,269),1)
  56. atomlocation(5,l(9,-255,-2655,0.58,0,0,0,269),1)
  57. atomlocation(6,l(6,-669,-3825,0.375,0,0,0,3848),1)
  58. atomlocation(7,l(3693,-1018,1358,1.12,0,0,0,520),1)
  59. atomlocation(8,l(-3641,-1018,1403,1.12,0,0,0,520),1)
  60. atomlocation(9,l(3891,-609,3521,0.58,0,0,0,269),1)
  61. atomlocation(10,l(5345,-28,275,0.58,0,0,0,269),1)
  62. atomlocation(11,l(3776,-3199,1012,0.58,0,0,0,269),1)
  63. atomlocation(12,l(-3629,-3228,1360,0.58,0,0,0,269),1)
  64. atomlocation(13,l(-3770,-322,3497,0.58,0,0,0,269),1)
  65. atomlocation(14,l(-5377,-268,259,0.58,0,0,0,269),1)
  66. atomlocation(15,l(4002,-379,4736,0.375,0,0,0,3848),1)
  67. atomlocation(16,l(-3843,70,4673,0.375,0,0,0,3848),1)
  68. atomlocation(17,l(7079,1011,-619,1.12,0,0,0,520),1)
  69. atomlocation(18,l(-7178,510,-758,1.12,0,0,0,520),1)
  70. atomlocation(19,l(7089,894,-2826,0.58,0,0,0,269),1)
  71. atomlocation(20,l(6997,3129,6,0.58,0,0,0,269),1)
  72. atomlocation(21,l(8913,69,177,0.58,0,0,0,269),1)
  73. atomlocation(22,l(-7183,-131,-2873,0.58,0,0,0,269),1)
  74. atomlocation(23,l(-8974,-283,257,0.58,0,0,0,269),1)
  75. atomlocation(24,l(-7178,2718,-657,0.58,0,0,0,269),1)
  76. atomlocation(25,l(7094,828,-4066,0.375,0,0,0,3848),1)
  77. atomlocation(26,l(-7186,-491,-4061,0.375,0,0,0,3848),1)
  78. commandactive("Files")
  79. viewshown("Bot")
  80. grid(24)
  81. atom_count(27)
  82.