Advanced Search

fmoraga

10 Reputation

One Badge

5 years, 84 days
Contact fmoraga

MaplePrimes Activity


These are replies submitted by fmoraga

@acer  Tarea1.mw Here's the co...

fmoraga 10
April 07 2020
0 0

@acer 

Tarea1.mw
Here's the code, but I don't know where the error is. I want to simplify the expression and clear W. Please could you help me.

> 

restart
> 

Eq1 := W_dot = Q_dot_H-Q_dot_C;

W_dot = Q_dot_H-Q_dot_C

 (1)
> 

Eq2 := Q_dot_H = UA_H(T_H-T_h);

Q_dot_H = UA_H(T_H-T_h)

 (2)
> 

Eq3 := Q_dot_C = UA_C(T_c-T_C);

Q_dot_C = UA_C(T_c-T_C)

 (3)
> 

Eq4 := eta = W_dot/Q_dot_H;

eta = W_dot/Q_dot_H

 (4)
> 

Eq5 := eta = 1-T_c/T_h;

eta = 1-T_c/T_h

 (5)
> 

List := eliminate({Eq1, Eq2, Eq3, Eq4, Eq5}, {Q_dot_C, Q_dot_H, T_c, T_h});

[{Q_dot_C = -W_dot*(eta-1)/eta, Q_dot_H = W_dot/eta, T_c = -eta*RootOf(-UA_H(T_H-_Z)*eta+W_dot)+RootOf(-UA_H(T_H-_Z)*eta+W_dot), T_h = RootOf(-UA_H(T_H-_Z)*eta+W_dot)}, {UA_C(-eta*RootOf(-UA_H(T_H-_Z)*eta+W_dot)-T_C+RootOf(-UA_H(T_H-_Z)*eta+W_dot))*eta+W_dot*eta-W_dot}]

 (6)
> 

solve(List[2], W_dot);

{W_dot = UA_H(T_H-RootOf(UA_H(T_H-_Z)*eta+UA_C(-_Z*eta-T_C+_Z)-UA_H(T_H-_Z)))*eta}

 (7)
> 

``


 

Download Tarea1.mw

 

 

Page 1 of 1