home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / educ / crystal.zip / SERINE.DAT < prev    next >
Text File  |  1988-06-26  |  2KB  |  51 lines
  1. chemical_name("Serine  (Amino Acid)")
  2. chemical(a(14,"H ",o("2p(x)",1,"σ",5)))
  3. chemical(a(5,"N ",o("sp3~",1,"σ",14)))
  4. chemical(a(13,"H ",o("1s",1,"σ",5)))
  5. chemical(a(5,"N ",o("sp3'",1,"σ",13)))
  6. chemical(a(12,"H ",o("1s",1,"σ",5)))
  7. chemical(a(5,"N ",o("sp3`",1,"σ",12)))
  8. chemical(a(11,"H ",o("1s",1,"σ",4)))
  9. chemical(a(4,"O ",o("sp`",1,"σ",11)))
  10. chemical(a(10,"H ",o("1s",1,"σ",3)))
  11. chemical(a(3,"C ",o("sp3_6^",1,"σ",10)))
  12. chemical(a(9,"H ",o("1s",1,"σ",3)))
  13. chemical(a(3,"C ",o("sp3_6~",1,"σ",9)))
  14. chemical(a(8,"H ",o("1s",1,"σ",2)))
  15. chemical(a(2,"C ",o("sp3_6^",1,"σ",8)))
  16. chemical(a(4,"O ",o("sp'",1,"σ",3)))
  17. chemical(a(3,"C ",o("sp3_6`",1,"σ",4)))
  18. chemical(a(5,"N ",o("sp3^",1,"σ",2)))
  19. chemical(a(2,"C ",o("sp3_6~",1,"σ",5)))
  20. chemical(a(7,"O ",o("3p(y)",1,"σ",1)))
  21. chemical(a(1,"C ",o("sp2'",1,"σ",7)))
  22. chemical(a(6,"O ",o("3p(y)",1,"σ",1)))
  23. chemical(a(1,"C ",o("sp2^",1,"σ",6)))
  24. chemical(a(3,"C ",o("sp3_6'",1,"σ",2)))
  25. chemical(a(2,"C ",o("sp3_6'",1,"σ",3)))
  26. chemical(a(2,"C ",o("sp3_6`",1,"σ",1)))
  27. chemical(a(1,"C ",o("sp2`",1,"σ",2)))
  28. atomlocation(14,l(2295,1265,531,0.375,0.67874941871,-5.9531220827,0.057747115127,3848),1)
  29. atomlocation(13,l(1084,462,2290,0.375,0.32794780879,-1.5195534184,6.2748965301,3848),1)
  30. atomlocation(12,l(176,2027,899,0.375,1.5076938483,-3.2253127848,5.4413401027,3848),1)
  31. atomlocation(11,l(-2904,-368,2364,0.375,0,-2.0944020285,0,3848),1)
  32. atomlocation(10,l(-1948,-1351,-1013,0.375,5.4315177602,-4.1889973392,0.18645658392,3848),1)
  33. atomlocation(9,l(-1948,615,-1013,0.375,0.85166577076,-4.1889973392,6.0967269471,3848),1)
  34. atomlocation(8,l(866,-1351,708,0.375,0.85166819309,-1.0473899998,6.0967225858,3848),1)
  35. atomlocation(7,l(3081,-368,-1718,0.7,1.57079633,32.98672287,0,269),1)
  36. atomlocation(6,l(369,-368,-3284,0.7,4.712387211,25.656144907,0,269),1)
  37. atomlocation(5,l(1016,912,969,0.7,5.0437759447,1.5626099966,0.14961552832,3596),1)
  38. atomlocation(4,l(-2283,-368,1289,0.58,0,-2.0943973392,0,269),1)
  39. atomlocation(3,l(-1451,-368,-152,0.7,0,-3.14159265,0,1290),1)
  40. atomlocation(2,l(369,-368,-152,0.7,0,62.831867773,0,1290),1)
  41. atomlocation(1,l(1273,-368,-1718,0.691,6.2832,6.2832,6.2832,1290),1)
  42. commandactive("Files")
  43. viewshown("Top")
  44. grid(8)
  45. atom_count(15)
  46. valencelist(4,2,-6)
  47. valencelist(5,1,5)
  48. valencelist(3,1,4)
  49. valencelist(2,1,4)
  50. valencelist(1,1,4)
  51.