Advanced Search

Question: How to avoid duplication?

Question:How to avoid duplication?

Ramakrishnan 399 Maple
eval units
July 30 2015
0

Please_Help_for_a_better_presentation.mw
I have used conduction Fourier formula to find k or q or T. Each time i hAvE to run from restart and units. Can this duplication be eliminated?
How do i rewrite the codes?

Thanks for considering this worth answering.

Ramakrishnan Vaidyanathan

restart

with(Units[Standard])

with(Units)

UsingSystem()

SI

 (1)

q := -k*(T__2-T__1)/t

-k*(T__2-T__1)/t

 (2)

S := {T__1 = 550*Unit('K'), T__2 = 50*Unit(Unit('K')), k = 19.1*Unit('W')/(Unit('m')*Unit('K')), t = 2*Unit('cm')}

{T__1 = 550*Units:-Unit(K), T__2 = 50*Units:-Unit(K), k = 19.1*Units:-Unit(m*kg/(s^3*K)), t = (1/50)*Units:-Unit(m)}

 (3)

eval(q, S)

477.5000000*Units:-Unit(kW/m^2)

 (4)

refresh

restart

with(Units[Standard])

with(Units)

UsingSystem()

 

 

t := -k*(T__2-T__1)/qNULL

 

-k*(T__2-T__1)/q

 (5)

S := {T__1 = 550*Unit('K'), T__2 = 50*Unit(Unit('K')), k = 19.1*Unit('W')/(Unit('m')*Unit('K')), q = 477.5*Unit('kW'/'m'^2)}

{T__1 = 550*Units:-Unit(K), T__2 = 50*Units:-Unit(K), k = 19.1*Units:-Unit(m*kg/(s^3*K)), q = 477500.0*Units:-Unit(kg/s^3)}

 (6)

eval(t, S)

2.000000000*Units:-Unit(cm)

 (7)

restart

clear

 

``NULL

NULL

 

  refresh

restart

with(Units[Standard])

with(Units)

UsingSystem()

NULL

T__2 := q*t/k+T__1

q*t/k+T__1

 (8)

S := {T__1 = 50*Unit('K'), k = 19.1*Unit('W')/(Unit('m')*Unit('K')), q = 477.5*Unit('kW'/'m'^2), t = 2*Unit('cm')}

{T__1 = 50*Units:-Unit(K), k = 19.1*Units:-Unit(m*kg/(s^3*K)), q = 477500.0*Units:-Unit(kg/s^3), t = (1/50)*Units:-Unit(m)}

 (9)

eval(T__2, S)

550.0000000*Units:-Unit(K)

 (10)

NULL

 

NULL

 

Download Please_Help_for_a_better_presentation.mw

restart

with(Units[Standard])

with(Units)

UsingSystem()

SI

 (1)

q := -k*(T__2-T__1)/t

-k*(T__2-T__1)/t

 (2)

S := {T__1 = 550*Unit('K'), T__2 = 50*Unit(Unit('K')), k = 19.1*Unit('W')/(Unit('m')*Unit('K')), t = 2*Unit('cm')}

{T__1 = 550*Units:-Unit(K), T__2 = 50*Units:-Unit(K), k = 19.1*Units:-Unit(m*kg/(s^3*K)), t = (1/50)*Units:-Unit(m)}

 (3)

eval(q, S)

477.5000000*Units:-Unit(kW/m^2)

 (4)

refresh

restart

with(Units[Standard])

with(Units)

UsingSystem()

 

 

t := -k*(T__2-T__1)/qNULL

 

-k*(T__2-T__1)/q

 (5)

S := {T__1 = 550*Unit('K'), T__2 = 50*Unit(Unit('K')), k = 19.1*Unit('W')/(Unit('m')*Unit('K')), q = 477.5*Unit('kW'/'m'^2)}

{T__1 = 550*Units:-Unit(K), T__2 = 50*Units:-Unit(K), k = 19.1*Units:-Unit(m*kg/(s^3*K)), q = 477500.0*Units:-Unit(kg/s^3)}

 (6)

eval(t, S)

2.000000000*Units:-Unit(cm)

 (7)

restart

clear

 

``NULL

NULL

 

  refresh

restart

with(Units[Standard])

with(Units)

UsingSystem()

NULL

T__2 := q*t/k+T__1

q*t/k+T__1

 (8)

S := {T__1 = 50*Unit('K'), k = 19.1*Unit('W')/(Unit('m')*Unit('K')), q = 477.5*Unit('kW'/'m'^2), t = 2*Unit('cm')}

{T__1 = 50*Units:-Unit(K), k = 19.1*Units:-Unit(m*kg/(s^3*K)), q = 477500.0*Units:-Unit(kg/s^3), t = (1/50)*Units:-Unit(m)}

 (9)

eval(T__2, S)

550.0000000*Units:-Unit(K)

 (10)

NULL

 

NULL

 

Download Please_Help_for_a_better_presentation.mw
Please Wait...