home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol243 / xrd.com (.txt) < prev    next >
Encoding:
Turbo Pascal Compiled 8bit CP/M-80 COM  |  1986-02-10  |  13.6 KB  |  123 lines
  1. Copyright (C) 1984 BORLAND Inc
  2. Pseudo TeleVideo 910P
  3. C0000
  4. ^#V#N#F
  5. s#r#q#p
  6.     #^#V
  7. 9^#Vh&
  8. |/g}/o#
  9. T]=o`9y
  10. T9^K#
  11. 8/<oz
  12. T9^K#
  13. oGOW_g
  14. `1pF,
  15. w###6
  16. ##N#F*
  17. Nw#Fw
  18. q#p#6
  19. #w#w#w
  20. TRUEFALSE
  21.     N#F#s#r
  22. N#F#^#V
  23. " C}=(
  24. F+N+++V+^
  25. q#p##
  26. User break
  27. Run-time
  28.  error 
  29. , PC=
  30. Program aborted
  31.   What is the name of the file?  
  32.  There is no such file !F
  33.  try another.
  34. , You should already have a file of XRD data.
  35. 0 Give the first line of the label for this data:
  36. 1 Give the second line of the label for this data:
  37. 3Give 0-angle position in cm -------------------->  
  38. 3Give uncertainty (95 % conf) of 0-angle pos. --->  
  39. 1Give 180-degrees position in cm -------------->  
  40. 1Give uncertainty (95 %) of 180 position ------>  
  41. +)]T)
  42. +)]T)
  43. +)]T)
  44. +)]T)
  45. +)]T)
  46. +)]T)
  47. +)]T)
  48. +)]T)
  49. +)]T)
  50. +)]T)
  51. +)]T)
  52. +)]T)
  53. +)]T)
  54. +)]T)
  55. +)]T)
  56. +)]T)
  57. +)]T)
  58. +)]T)
  59. +)]T)
  60. +)]T)
  61. +)]T)
  62. +)]T)
  63. +)]T)
  64. +)]T)
  65. +)]T)
  66. +)]T)
  67. +)]T)
  68. +)]T)
  69. +)]T)
  70. +)]T)
  71. +)]T)
  72. +)]T)
  73. +)]T)
  74. +)]T)
  75. +)]T)
  76. +)]T)
  77. +)]T)
  78. +)]T)
  79. +)]T)
  80. +)]T)
  81. +)]T)
  82. ? This program calculates and prints results from Debye-Scherrer
  83. B xray diffraction powder patterns.  You should have a data file as
  84.      follows:
  85. ! 23.015,.015,M,w/i diffuse region
  86. C This is a sample line from the file.  The first number is the line
  87. > position in cm; the second number is its uncertainty; next is
  88. C qualitative intensity given as one or two letters (M = "moderate")
  89. A Finally, there is a comment field.  YOU MUST TYPE ALL THE COMMAS
  90.  SHOWN.  DON'T leave spaces.
  91. @ GET THE PRINTER PAPER TO ABOUT 3 LINES BELOW THE TOP OF A PAGE.
  92. 6 TURN OFF THE PRINTER.  NOW, TURN THE PRINTER BACK ON.
  93.  Did you do this?    
  94. shrink factor = !
  95.    !o
  96.    !#
  97.       
  98.     Corrected! 
  99. Uncertainty! 
  100. Qualitative! 
  101.      d - s p a c i n g        ! 
  102. Uncertainty! 
  103.        Comments       ! 
  104. Quantitative
  105.       
  106.      2-theta ! 
  107.   2-theta  ! 
  108.  intensity ! 
  109.  Cu Ka    Cu Ka1    Cu Ka2  ! 
  110.  d-spacing ! 
  111.                       ! 
  112.  intensity  
  113. +)]T)
  114. +)]T)
  115. +)]T)
  116. +)]T)
  117. +)]T)
  118. +)]T)
  119. +)]T)
  120. +)]T)
  121. ( Do you have another set of XRD data?   
  122.  Do you have another set of XRD data?   
  123.