kill(all)$

maxima:Construct Txy diagram Chloroform & hexane (= Mixture),version 1.0,part 3,graph
peter.vlasschaert@gmail.com,30/08/2020

Tp:[341.8887312728996,341.8320744226968,341.7757096223191,341.7196351899902,341.6638494587662,
 341.6083507763661,341.4708491962475,341.3351062725648,340.8092358450301,340.3096231903344,
 339.8348930936871,339.3837795160307,338.9551147419851,338.5478198662375,338.160896435822,
 337.7934190956959,337.4445291098741,337.1134286511403,336.7993757698528,336.5016799672429,
 336.2196983114188,335.952832045477,335.7005236470627,335.4622543077408,335.2375418089288,
 335.0259387791743,334.8270313255055,334.6404380396928,334.465809388855,334.3028275092132,
 334.1512064323483,334.0106927854837,333.8810670216716,333.7621452529931,333.6537817808963,
 333.5558724437514,333.468358934096,333.3912342788933,333.3245497280729,333.2684233632533,
 333.2230508246996,333.1887186668802,333.165821000629,333.1548802756669,333.1565733191672,
 333.1717640998833,333.2015451703211,333.2472904059516,333.310722591349,333.3940007202121,
 333.4998337662034,333.6316304359037,333.7936984980901,333.8877405791131,333.9915134507014,
 334.1059441165082,334.232085798762,334.3711381263685,334.5244712336039,334.6069748691531,
 334.6936546786436,334.7847437376684,334.8804923424812]$

q1a:length(Tp);

xp:[0,0.002,0.004,0.006,0.008,0.01,0.015,0.02,0.04,0.06,0.08,0.1,0.12,0.14,0.16,
    0.18,0.2,0.22,0.24,0.26,0.28,0.3,0.32,0.34,0.36,0.38,0.4,0.42,0.44,0.46,0.48,
    0.5,0.52,0.54,0.56,0.5800000000000001,0.6,0.62,0.64,0.66,0.68,0.7000000000000001,
    0.7200000000000001,0.74,0.76,0.78,0.8,0.8200000000000001,0.8400000000000001,0.86,
    0.88,0.9,0.92,0.93,0.94,0.95,0.96,0.97,0.98,0.985,0.99,0.995,1]$

q2a:length(xp);

yp:[0,0.003773156639562303,0.007525633662014744,0.01125760674502092,0.01496924966692279,0.01866073433278176,
    0.02780236515012979,0.03682167256301665,0.07172546394191294,0.1048637432911742,0.1363739413529389,
    0.1663803875575991,0.1949958898332328,0.2223230988667602,0.2484556911244206,0.2734793989766059,
    0.2974729114688653,0.3205086653961445,0.3426535431847741,0.3639694915216536,0.384514072579832,
    0.4043409579861876,0.4235003742912307,0.4420395075797189,0.4600028739620752,0.4774326619790139,
    0.4943690524119784,0.5108505206035019,0.5269141261449495,0.5425957946802699,0.5579305966062845,
    0.5729530276316787,0.587697296505619,0.602197625768916,0.6164885721542854,0.6306053743208363,
    0.6445843370248973,0.6584632627056634,0.6722819439379145,0.6860827334652543,0.6999112128389979,
    0.7138169864163737,0.727854635133322,0.7420848747947804,0.7565759776734524,0.7714055355099836,
    0.7866626688249789,0.8024508251680018,0.8188913626776257,0.8361281930431878,0.8543338721215711,
    0.8737176970908004,0.8945366289401913,0.9055811671802502,0.9171102634202271,0.9291770706479654,
    0.941841717324649,0.9551725033377302,0.9692473488325803,0.9765912013621786,0.9841555605628555,
    0.9919537242858859,1.0]$

q3a:length(yp);

p1:['discrete,xp,Tp]$ /*liquid , composition */

p2:['discrete,yp,Tp]$ /*vapour ,composition  */

wxplot2d([p1,p2]);

p3a:[xlabel,"x =blue,y=red, mole fraction "];
p3b:[ylabel,"T (temperatur (Kelvin))"];
p3c:[title,"Txy diagram,chloroform(1),hexane(2)"];

wxplot2d([p1,p2],p3a,p3b,p3c,[y,330,345],grid2d,[legend,false]);

show the mixture with (azeotrope constitution =az, x[i] = y[i])
==============================================

rem :maxima:Construct Txy diagram Chloroform & hexane (= Mixture),version 1.0,part 2

wxplot2d([p1,p2],p3a,p3b,p3c,[y,331,345],grid2d,
[label,["bp2",0+0.01,Tp[1]+0.01],["bp1",1,Tp[q1a]+0.01],
["az",xp[44],Tp[44]+0.01]],[legend ,"x","y"]);
            
    
  