reset()

ProjectName:="U-R-L-RL";
CurrentPath:="/Users/kovrigin/Documents/Workspace/Global Analysis/code_development/Mathematical_models/Equilibrium_thermodynamic_models/U-R-L-RL/";

K_A_1 ;
assumeAlso(K_A_1  > 0):
assumeAlso(K_A_1 , R_)

K_B_1 ;
assumeAlso(K_B_1  > 0):
assumeAlso(K_B_1 , R_):

K_B_2 ;
assumeAlso(K_B_2  > 0):
assumeAlso(K_B_2 , R_):

K_B_3 ;
assumeAlso(K_B_3  > 0):
assumeAlso(K_B_3 , R_):

Rtot;
assumeAlso(Rtot>0):
assumeAlso(Rtot,R_):

Ltot;
assumeAlso(Ltot>0):
assumeAlso(Ltot,R_):

Req;
assumeAlso(Req>0):
assumeAlso(Req<Rtot):
assumeAlso(Req,R_):

Rstareq;
assumeAlso(Rstareq>0):
assumeAlso(Rstareq<Rtot):
assumeAlso(Rstareq,R_):

Leq;
assumeAlso(Leq>0):
assumeAlso(Leq<Ltot):
assumeAlso(Leq,R_):

Lstareq;
assumeAlso(Lstareq>0):
assumeAlso(Lstareq<Ltot):
assumeAlso(Lstareq,R_):

RLeq;
assumeAlso(RLeq>0):
assumeAlso(RLeq<Rtot):
assumeAlso(RLeq,R_):

RLstareq;
assumeAlso(RLstareq>0):
assumeAlso(RLstareq<Rtot):
assumeAlso(RLstareq,R_):

anames(Properties,User);

eq2_1:= Rtot = Req + Rstareq + RLeq + RLstareq;
eq2_2:= Ltot = Leq + Lstareq + RLeq + RLstareq;

eq2_3:= K_A_1 = RLeq / (Req*Leq);

eq2_4:= K_B_1 = Rstareq/Req

eq2_5:= K_B_2 = Lstareq/Leq

eq2_6:= K_B_3 = RLstareq/RLeq

eq2_6;
solve(%,RLstareq):
%[1][1]:
eq3_1:= RLstareq=%

eq2_1;
% | eq3_1:
eq3_2:= %

eq2_2;
% | eq3_1:
eq3_3:= %

eq2_3;
solve(%,RLeq):
%[1][1]:
eq3_4:= RLeq = %

eq3_2;
% | eq3_4:
eq3_5:= %

eq3_3;
% | eq3_4:
eq3_6:= %

eq2_4;
solve(%,Rstareq):
%[1][1]:
eq3_7:= Rstareq = %

eq3_5;
% | eq3_7:
eq3_8:= %

eq2_5;
solve(%, Lstareq):
%[1][1]:
eq3_9:= Lstareq = %

eq3_6;
% | eq3_9:
eq3_10:= %

eq3_10;
solve(%,Req):
%[1][1]:
eq3_11:= Req = %

eq3_8;
% | eq3_11;
temp1:=%[2];
temp2:=Simplify(%);
// test
temp1=temp2;
Simplify(%);
// Assemble a final equation
eq3_12:= Rtot =temp2

solution3_12:=solve(eq3_12, Leq)

solution_lines:=4:
eq3_13:=  solution3_12[i,1] $ i=1..solution_lines;
nops(%)

solution1:=eq3_13[1];   // a sequence of roots
solution2:=eq3_13[2][1];  // extract equation out of a sequence
solution3:=eq3_13[3][1];   // extract equation out of a sequence

if solution2 in solution1
then print(Unquoted,"First set of roots contains the second root.");
else print(Unquoted,"First  set of roots  DOES NOT contain the second root!");
end_if;

if solution3 in solution1
then print(Unquoted,"First set of roots contains the third root.");
else print(Unquoted,"First  set of roots  DOES NOT contain the third root!");
end_if;

First  set of roots  DOES NOT contain the second root!
First  set of roots  DOES NOT contain the third root!

// Check the 2nd root
test1:=eq3_12 | Leq=solution2;
normal(%);

// Check the 3rd root
test1:=eq3_12 | Leq=solution3;
normal(%);

solution2 | K_A_1=1 | K_B_1=1 | K_B_2=1 | K_B_3=1 | Rtot=1 | Ltot=1;
float(%)

solution3 | K_A_1=1 | K_B_1=1 | K_B_2=1 | K_B_3=1 | Rtot=1 | Ltot=1;
float(%)

eq3_14:= Leq = solution3

fLeq_U_R_L_RL:= (Rtot, Ltot, K_A_1, K_B_1, K_B_2, K_B_3) --> Leq_U_R_L_RL[2]

//test operation
fLeq_U_R_L_RL(1,1,10,100,1000,1):
float(%)

fReq_U_R_L_RL:=(Rtot, Ltot, K_A_1, K_B_1, K_B_2, K_B_3) --> Req_U_R_L_RL[2] | Leq_U_R_L_RL

//test operation
fReq_U_R_L_RL(1,1,10,100,1000,1):
float(%)

fRstareq_U_R_L_RL:=(Rtot, Ltot, K_A_1, K_B_1, K_B_2, K_B_3) --> Rstareq_U_R_L_RL[2] | Req_U_R_L_RL | Leq_U_R_L_RL

//test operation
fRstareq_U_R_L_RL(1,1,10,100,1000,1):
float(%)

fLstareq_U_R_L_RL:=(Rtot, Ltot, K_A_1, K_B_1, K_B_2, K_B_3) --> Lstareq_U_R_L_RL[2] | Leq_U_R_L_RL

//test operation
fLstareq_U_R_L_RL(1,1,10,100,1000,1):
float(%)

fRLeq_U_R_L_RL:=(Rtot, Ltot, K_A_1, K_B_1, K_B_2, K_B_3) --> RLeq_U_R_L_RL[2] | Req_U_R_L_RL | Leq_U_R_L_RL

//test operation
fRLeq_U_R_L_RL(1,1,10,100,1000,1):
float(%)

fRLstareq_U_R_L_RL:=(Rtot, Ltot, K_A_1, K_B_1, K_B_2, K_B_3) --> RLstareq_U_R_L_RL[2] | RLeq_U_R_L_RL | Req_U_R_L_RL | Leq_U_R_L_RL

//test operation
fRLstareq_U_R_L_RL(1,1,10,100,1000,1):
float(%)

ProjectName

filename:=CurrentPath.ProjectName.".mb";
write(filename,
// Equations
Leq_U_R_L_RL,
Req_U_R_L_RL,
Rstareq_U_R_L_RL,
Lstareq_U_R_L_RL,
RLeq_U_R_L_RL,
RLstareq_U_R_L_RL,
// Analytical functions
fLeq_U_R_L_RL,
fReq_U_R_L_RL,
fRstareq_U_R_L_RL,
fLstareq_U_R_L_RL,
fRLeq_U_R_L_RL,
fRLstareq_U_R_L_RL
)

Error: Cannot write to file '/Users/kovrigin/Documents/Workspace/Global Analysis/code_development/Mathematical_models/Equilibrium_thermodynamic_models/U-R-L-RL/U-R-L-RL.mb'. [write]