Displaying 1 result from an estimated 1 matches for "solvhd".
Did you mean:
solved
2023 Nov 28
1
computer algebra in R
...o solve algebraic systems.
> eqthermo = {h0 == h + hd + hga, d0 == d + hd, ga0 == ga + hga, kga ==
> ???? hga / (h * ga), kd == hd / (h * d)};
>
> (* IDA HD*)
> sthdIDAcacheHD[fkd_, fkga_, fh0_, fd0_] :=? sthdIDAcacheHD[fkd, fkga,
> fh0, fd0] =
> ?? ??? ?? ??? ?Module[{eliHD, solvHD},
> ?? ??? ??? ??? ?eliHD =
> ?? ??? ????? Eliminate[
> ?? ??? ?????? eqthermo /. {d0 -> fd0, h0 -> fh0, kd -> fkd, kga ->
> fkga}, {h, d, hga, ga}];
> ?? ??? ??? ??? ?solvHD = hd /. NSolve[eliHD, hd];
> ?? ??? ??? ??? ?Return[solvHD];
> ?? ??? ??? ??? ?];
?I tri...