kill(all)$

appendix :chemical equations, input & output :reaction,version 1.0
peter.vlasschaert @gmail.com,18/02/2021

ref: appendix
===========

----------------------------------------------------------------------------------------------------------------------------------------------------
new: 07/02/2021: Appendix :How import chemical elements : Maxima (csv file),version 1.0
download  (Maxima,code)       :appendixchemicalequationshowimportcsvfilechemicalelementsversion1
download  (Maxima,png)         :appendixchemicalequationshowimportcsvfilechemicalelementsversion1outp
download  (sheet,csv)               :elementlist.csv
new: 08/02/2021: Appendix :chemical components : molecular mass ,version 1.0.
download  (Maxima,code)       :appendixmolecularmassfromchemicalelementdataversion1
download  (Maxima,png)         :appendixmolecularmassfromchemicalelementdataversion1outp
new: 09/02/2021: Appendix: chemical  components : oxidation state,version 1.0.
download  (Maxima,code)       :appendixchemicalcomponentoxidationstateversion1final
download  (Maxima,png)         :appendixchemicalcomponentoxidationstateversion1finaloutp
new: 13/02/2021: Appendix: chemical  components :sum,version 1.0.
download  (Maxima,code)       :maximachemicaleqstrdispsumpart4version12021
-----------------------------------------------------------------------------------------------------------------------------------------------------

needed :  'list input (=N),output(=M)', vb[i] & va[i] , i=1..nuip & i=1..nuop.
appendix : chemical equations,equation,version 1.0
peter.vlasschaert@gmail.com,15/02/2021

nuip (= integer): input products reaction.
==============================

nuip:2;

for i:1 thru nuip do(
vb[i]:read ( i,"e) input product = ")
)$

rem shift & enter 1e)  → 2e) ,automatic  = ;

vb:makelist(vb[i],i,1,nuip);

get input : back
============

vb[1];
vb[2];

nuop (= integer): ouput products reaction.
================================

nuop:2;

for i:1 thru nuop do(
va[i]:read ( i,"e) output product = ")
)$

va:makelist(va[i],i,1,nuop);

get output : back

va[1];
va[2];

"-----------------------------------------------------------------------------------------------------------------------------"