/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created with wxMaxima version 20.06.6 ] */
/* [wxMaxima: input   start ] */
fpprintprec: 6$
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
41-43.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
float(solve(1.5*0.9/(1.5+x)=0.5,x));
float(solve((2.5*0.05+x*0.2)/(2.5+x)=0.12,x));
float(solve((x*0.1+(2-x)*0.25)/2=0.2,x));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
44. (Mr(HCOOH)=46.03)
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
Mrviz: 18.02$
egyenlet: Mr*11.0/(Mr*11.0+Mrviz*89.0)=0.24;
solve(egyenlet,Mr);float(%);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
45.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
solve([(x*2*14.01/(28.02+4*1.01+3*16)+
        100*2*14.01/(2*14.01+8*1.01+32.07+4*16)
       )/(x+100)=0.24],[x])$ float(%);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
46. 
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
MrAs2S3: 2*74.92+3*32.07$
MrAs2S5: 2*74.92+5*32.07$
egyenlet: x*3*32.07/MrAs2S3+(100.0-x)*5*32.07/MrAs2S5=50.0;
solve(egyenlet,x);float(%);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
47.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
solve(50/(22.99+14.01+3*16)*20.81*1000=
      (25-T)*(997+50)*4.193,T);float(%);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
48.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
solve(0.07=(10^(-pH)*(0.15*200/300-(0.6*100/300-10^(-pH))))/
     (0.6*100/300-10^(-pH)),pH)$ float(%[2]);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
49. (Az 5. egyenletben akármilyen szám lehet, mert csak arányt kell
     megadni.)
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
egy1: mf1+mf2=mv1+mv2;
egy2: mf1/mv1=8.12/(100.0-8.12);
egy3: mf2/mv2=72.37/(100.0-72.37);
egy4: megoldas=(mf1+mv1)/(mf2+mv2);
egy5: mf1=1.0;
solve([egy1,egy2,egy3,egy4,egy5],[megoldas,mf1,mf2,mv1,mv2])$
float(%[1][1]);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
50.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
egy1: 0.12=a+ha+h2a;
egy2: 2.0*0.12=h+ha+2.0*h2a;
egy3: 0.038=ha*h/h2a;
egy4: 0.00005=a*h/ha;
egy5: -log(h)/log(10.0)=pH;
solve([egy1,egy2,egy3,egy4,egy5],[pH,h,a,ha,h2a])$ %[3];
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
51.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
solve((60-20)*16/100+(180*x/100+16/100*20)*20/200=60*13/100,x);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
52.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
MrNaCl:58.44$
tsz:(0.00845*0.06-0.02665*0.01)*100*MrNaCl/20*100;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
53.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
MrZnSO4:161.46$MrH2O:18.02$ArS:32.07$MrH2SO4:98.09$;
n:(100/11.15*ArS-161.46)/MrH2O;
tsz:100*MrH2SO4/(MrH2SO4+n*MrH2O);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
54.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
float(solve((ArCa+16.03)/25.04=(ArCa+32.4+4*16.03)/60.36,ArCa));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
55.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArAl:26.98$ArFe:55.85$ArAg:107.87$
mszAl:1.032e5*108.58e-6/8.314/(273.15+23.5)*2/3*100*ArAl/0.4743;
mszFe:(1.053e5*268.9e-6/8.314/(273.15+23.5)-3/2*mszAl/100*0.4938/ArAl)*ArFe/0.4938*100;
mszAg:100-mszFe-mszAl;
nallin100g:mszAl/ArAl+mszFe/ArFe+mszAg/ArAg;
nszAl:100*mszAl/ArAl/nallin100g;
nszFe:100*mszFe/ArFe/nallin100g;
nszAg:100*mszAg/ArAg/nallin100g;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
56.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
egy1:VCH4+2*(63-VCH4)=96$
solve(egy1,VCH4)$
CH4sz:100*rhs(%[1])/63.0;;C2H2sz:100-CH4sz;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
57.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArAl:26.98$
mAl:0.3*(0.01-10^(-2.678))/3*ArAl;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
58.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
MrCaCO3:100.09$
egy1:2*1.000/MrCaCO3+cB*0.00632=cS*0.04985$
egy2:cB*48.95=cS*50.00$
float(solve([egy1,egy2],[cS,cB]));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
59.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArCa:40.08$MrCaCO3:100.09$
nall:1e5*1.783e-3/8.314/(273.15+37.3)$
tmp:float(solve(nall=mCaCO3/MrCaCO3+(5-mCaCO3)/ArCa,mCaCO3));
mtszCaCO3:100*rhs(tmp[1])/5;
mtszCa:100-mtszCaCO3;
vtszCO2:rhs(tmp[1])/MrCaCO3/nall*100;
vtszH2:100-vtszCO2;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
60.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArFe:55.85$MrFeCO3:115.86$
nall:101324*1.873e-3/8.314/273.15$
tmp:float(solve(nall=mFeCO3/MrFeCO3+(6.223-mFeCO3)/ArFe,mFeCO3));
mtszFeCO3:100*rhs(tmp[1])/6.223;
mtszFe:100-mtszFeCO3;
vtszCO2:rhs(tmp[1])/MrFeCO3/nall*100;
vtszH2:100-vtszCO2;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
61.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
nall:101325*3.332e-3/8.314/(273.15+25.0)$
Mrmean:4.5/nall;
ArMg:24.31$ArCa:40.08$
tmp:float(solve(nall=mMg/ArMg+(4.5-mMg)/ArCa,mMg));
mtszMg:100*rhs(tmp[1])/4.5;
mtszCa:100-mtszMg;
nszMg:rhs(tmp[1])/ArMg/nall*100;
nszCa:100-nszMg;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
62.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArCl:35.45;ArBr:79.90;MrAgCl:143.32;MrAgBr:187.77;
egy1:Clmol*MrAgCl+Brmol*MrAgBr=0.9;
egy2:MrAgCl*(Clmol+Brmol)=0.8;
tmp:float(solve([egy1,egy2],[Clmol,Brmol]));
Cltsz:100*rhs(tmp[1][1])*ArCl/0.5;
Brtsz:100*rhs(tmp[1][2])*ArBr/0.5;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
63.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArC:12.01;MrMg2C:60.63;MrMgC2:48.33;MrH2O:18.02;
x:rhs(float(solve(2*mMg2C/MrMg2C+(0.85-mMg2C)/MrMgC2=0.4779/MrH2O,mMg2C))[1]);
mCtsz:100*ArC*(x/MrMg2C+2*(0.85-x)/MrMgC2)/0.85;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
64.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArAg:107.87$ArCl:35.45$ArI:126.9$
egy1:2*(mAg/ArAg+0.02814*0.101)=0.05*0.181;
egy2:mAg/ArAg=mCl/ArCl+mI/ArI;
egy3:0.3236=mAg+mCl+mI;
egy4:Agtsz=100*mAg/0.3236;
float(solve([egy1,egy2,egy3,egy4],[mAg,mCl,mI,Agtsz]));
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
65.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
ArNa:22.99$ArK:39.1$ArHg:200.59$
tmp:float(solve([ArNa*nNa+ArK*nK=1.0-0.9187,nNa+nK=150/20*0.05*0.00822],[nNa,nK]));
nall:rhs(tmp[1][1])+rhs(tmp[1][2])+0.9187/ArHg$
nszNa:rhs(tmp[1][1])/nall*100;
nszK:rhs(tmp[1][2])/nall*100;
nszHg:100-nszNa-nszK;
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
66.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
m(c):=c*0.25*(63.546+32.065+4*15.999+5*(2*1.0079+15.999));
wxplot2d(m(c),[c,0.0,0.99],[xlabel,"c (M)"],
  [ylabel,"m(só) (g)"])$
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
67.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
Mrs:63.546+32.065+4*15.999;
Mrsw:63.546+32.065+4*15.999+5*(2*1.0079+15.999);
solve(t*Mrs/Mrsw/(58.0+t)=m/100,t);
wxplot2d(rhs(%[1]),[m,0.0,10.0],[xlabel,"m%/%"],
  [ylabel,"m(só) (g)"])$
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
68.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
p(V,t):=1*8.314*(273.15+t)/V;
wxplot2d([p(V,0.0),p(V,50.0),p(V,100.0)],[V,0.002,0.05],
  [xlabel,"V (m^3)"],[ylabel,"p (Pa)"])$
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
69-70.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
f1(x):=4^(-4*x+3);solve(f1(T)=f1(0)/2,T);float(%[1]);
f2(x):=8^(3*x+1);solve(f2(T)=f2(0)*2,T);float(%[1]);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
73.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
1.0*(0.1/(0.1+5/1))^1;
1.0*(0.1/(0.1+5/2))^2;
1.0*(0.1/(0.1+4/1))^1*(0.1/(0.1+1/1))^1;
1.0*(0.1/(0.1+5/5))^5;
limit(1.0*(0.1/(0.1+2.0/n))^n,n,inf);
limit(c*(vr/(vr+vt/n))^n,n,inf);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
78.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
cs:3.8e-7$Ks:2.1e-7$Kv:10^(-13.76)$
wxplot2d(Ks*(cs-H+Kv/H)/(H-Kv/H)-H,[H,1.0e-7,6e-7],
  [y,-5e-6,5e-6],[ylabel,"jobboldal - baloldal"]);
find_root(Ks*(cs-H+Kv/H)/(H-Kv/H)-H=0,H,2e-7,4e-7);
pH:-log(%)/log(10.0);
kill(H,pH);
solve([H=10^(-pH),H=Ks*(cs-H+Kv/H)/(H-Kv/H)],[H,pH]);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
79.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
I(t):=1070.0/(1.12*t+2.16);
integrate(I(t),t,0,2.5*3600)$float(%);
h:60;sum(h*(I(h*i)+I(h*(i+1)))/2,i,0,149);
h:1;sum(h*(I(h*i)+I(h*(i+1)))/2,i,0,8999);
h:0.1;sum(h*(I(h*i)+I(h*(i+1)))/2,i,0,89999);
sum(0.1*(I(0.1*i)+I(0.1*(i+1)))/2,i,0,4999)+
sum(1.0*(I(1.0*i)+I(1.0*(i+1)))/2,i,500,3599)+
sum(60.0*(I(60.0*i)+I(60.0*(i+1)))/2,i,60,149);
wxplot2d(I(t),[t,0,9000],[y,0,500]);
/* [wxMaxima: input   end   ] */


/* [wxMaxima: comment start ]
80.
   [wxMaxima: comment end   ] */


/* [wxMaxima: input   start ] */
phir(r):=(1/(1536*sqrt(%pi))*(192-144*r+24*r^2-r^3)*%e^(-r/2))^2;
wxplot2d(phir(r),[r,0.0,25.0],[y,0,2e-5]);
wxplot2d(phir(r),[r,0.0,25.0],[logy]);
find_root(diff(phir(r),r),r,2.0,5.0);
find_root(diff(phir(r),r),r,7.0,10.0);
find_root(diff(phir(r),r),r,16.0,25.0);
solve(diff(phir(r),r)=0,r);float(%);
/* [wxMaxima: input   end   ] */



/* Old versions of Maxima abort on loading files that end in a comment. */
"Created with wxMaxima 20.06.6"$