Hello to everyone I have a problem with calculation of the Nusselt number and the thermal inelet region. My result is 1.51 but my prof told me is not correct.Here is my code
Please keep your questions and replies in English Language.Thank you.
Did you type Nu[t][[1]] or Nu[t][1]?
Nu[t][[1]]
Nu[t][1]
[ENGLISH] Checking the values It seems to works.
[ITA] Verificando i valori che ottengo funziona.
Your code for esercizio 5 fails because your Nu[t] is a list, not a number. Try this:
Nu[t]
t = 0.01; While[t <= 1.5, If[Nu[t][[1]] <= 1.05*3.657, Break[]]; t = t + 0.01] t
or, even better,
Clear[t]; FindRoot[Nu[t][[1]] == 1.05*3.657, {t, .1, .15}]