A program in Hewlett-Packard BASIC for calculation of CIPW normative minerals using HP-Series 80 computers and VISICALC electronic worksheet
1983; United States Department of the Interior; Linguagem: Inglês
10.3133/ofr83913
ISSN2332-4899
Autores Tópico(s)Minerals Flotation and Separation Techniques
ResumoA program in Hewlett-Packard BASIC for calculation of CIPW normative minerals using HP-Series 80 computers and VISICALC electronic worksheetExecution of the program as listed in Appendix I requires approximately 77 K bytes of memory.Redimensioning the matrix to accept only 45 instead of 62 samples (line 10, Appendix I) lowers the memory requirement to approximately 63 K bytes.Most of the execution time is consumed by the data read and data write segments.It takes about 2-1/2 minutes to read in the data for 62 samples, and about 13 minutes to write the results to a "/SS" file.The calculations for 62 samples which generated 19 error statements, 27 quartz-free analyses, and approximately 20 queries, required about 7-1/2 minutes. NORMATIVE CALCULATIONSThe steps used to compute normative minerals are exactly the same as those used by Stuckless and VanTrump (1979), and the description of those steps is reproduced here for the convenience of the users of NORM.Oxides used by the program and minerals calculated are presented in Table 1 toaether v/ith chenical formulae and abbreviations used for each miners"!.'"'THEN s<37,ji--u f GUIo'1390 ?"CALCULATECARBnNftin 1320 CUIAR fi 01SP "DOtS SfiHPiF "&N$ A" CONTA'N CANCRINITE ?'% 1330 DiSP ^ DISP "CONTTMUI^G HUT! NI3RH CALCULATION" 1340 IF 0$*-6t Y" 1HEN S = 0 (3 GOTO 1390 1350 PRINT "NA203 ATTEMPTED FOR SAMPLE "&N$(J> @ PRINT 13GO TF IX14,JXT THEN 1380 ELSE S(37, J^ =T<7 1 J) !1370 T ="T "T @ T(7,J>=0 & GOTO 1330 1300 S(37,J>--T » T(14,J),S t S(59,J) = 0 @ F(7 , J> = T (7 t J)-S<37 , J) 1510
Referência(s)