Hello,
I am a mechanical engineering student and I want to build a program like that:
Code:
This program is incomplete, it s just an example of what I want to do...
I want to ask for the inputs of:
In each lenght AB, BC and CD
ask for
Lenght
Diameter
Reference Rate m3 per hour
Density
Absolute viscosity
Roughness
Sum of K(Charge losses)
H0
Percentage of rate
And for each lenght calculate, and shows all values onto the calcs:
Velocity=(Reference rate/3600)/Pipe area
Reynolds=(Density*velocity*Diameter)/Absolute viscosity
Relative roughness=Roughness/Diameter
Lambda=0.0055*((20000+Relative roufhness)+10^6/Reynolds))^1/3))
KT=((Lambda*Lenght)/Diameter)+Sum of K
K'=(8*KT)/(Pi^2)*Diameter^4)*9,81
And then show one equation:
Hi=H0+((K'AB+K'BC)*Q^2)+K'CD*(Percentage*Q)^2
And thats it, and if possible show the values in a table like this
And I think its all
Sorry for my English, I am from Portugal...
Best Regards
I am a mechanical engineering student and I want to build a program like that:
Code:
ZStandard:ClrHome:ClrDraw:AxesOff:ExprOff:CoordOff:FnOff
Output(1,1,"Programado por:")
Output(2,1,"Carlos P. Fontes")
Output(3,2,"Eng-a Mecanica")
Output(4,6,"ISEC")
Output(5,6,"Data:")
Output(6,4,"07/02/2017")
Output(7,3,"Mec. Fluidos")
Output(8,4,"V.Beta-1.0")
Pause
Lbl 0
Menu("M.Fluidos ISEC","Sair",99,"Inputos",1,"Reynolds",2,"P.Hidrostatica",15,"Caudal",16
Lbl 1:ClrHome:ClrDraw
Input "Comprimento AB",A
Input "Comprimento BC",B
Input "Comprimento CD",C
Input "diametro AB",D
Input "diametro BC",E
Input "diametro CD",F
Input "Caudal de ref em m/s",G
Input "% de caudal [0a1]",H
Input "Rugosidade epsilon",I
Input "Somatorio dos KS AB",J
Input "Somatorio dos KS BC",Q
Input "Somatorio dos KS CD",R
Input "Densidade do fluido",K
Input "Viscosidade absoluta",L
Disp "Comprimento AB"
Disp "Velocidade=",((G*H)/3600)/((D/2)^2)*pi->M
Disp "Reynolds=",(M*D*K)/L->N
Disp "epsilon/d=",(I/D)->O
Disp "lambda=",0.0055*[1+((20000*O)+(10^6)/N)^(1/3)]->P
Disp "KT=",(((P*A)/D)+J)->S
Disp "K'=",((8*S)/((pi)^2)*(D^4)*9,81)->T
Disp "VALORES COMP AB"
Disp "Velocidade=",(20/3600)/((E/2)^2)*pi->U
Disp "Reynolds=",(K*U*E)/L->V
Disp "epsilon/d=",0.15/E->X
Disp "lambda=",0.0055*[1+((20000*X)+(10^6)/V)^(1/3)]->Y
Pause
Disp "K'="
Disp "KT="
Disp "VALORES COMP AB"
Disp "Velocidade="
Disp "Reynolds="
Disp "epsilon/d="
Disp "lambda="
Disp "K'="
Disp "KT="
Pause :Goto 0
Lbl 99:ClrHome:ClrDraw:AxesOn:ExprOn:CoordOn:FnOn :ZStandard:Output(1,1,"")
This program is incomplete, it s just an example of what I want to do...
I want to ask for the inputs of:
In each lenght AB, BC and CD
ask for
Lenght
Diameter
Reference Rate m3 per hour
Density
Absolute viscosity
Roughness
Sum of K(Charge losses)
H0
Percentage of rate
And for each lenght calculate, and shows all values onto the calcs:
Velocity=(Reference rate/3600)/Pipe area
Reynolds=(Density*velocity*Diameter)/Absolute viscosity
Relative roughness=Roughness/Diameter
Lambda=0.0055*((20000+Relative roufhness)+10^6/Reynolds))^1/3))
KT=((Lambda*Lenght)/Diameter)+Sum of K
K'=(8*KT)/(Pi^2)*Diameter^4)*9,81
And then show one equation:
Hi=H0+((K'AB+K'BC)*Q^2)+K'CD*(Percentage*Q)^2
And thats it, and if possible show the values in a table like this
And I think its all
Sorry for my English, I am from Portugal...
Best Regards