Kvarkadabra forum

Pri tem: FindRoot[f[x], {x, 2}] Dobim tole: {x -> 1.98793} Kar pa še vedno ni prav... Glede na to, da mi je Mathematica izrisala enak graf kot WolframAlpha, je verjetno graf pravilen. Wolfram pa izračuna pravilne ničle, če pogledam graf... Imam še eno vprašanje, če boš mogoče imel kakšno idejo. Nari...

V bistvu me je zanimalo, kako se ničle najenostavneje izračuna, neodvisno od postopka. Vidim da mi ničle takšne enačbe izračuna že WolframAlpha: https://www.wolframalpha.com/input/?i=x*BesselJ%5B0,+x%5D+-+0.017*BesselJ%5B1,+x%5D ...so to pravilne rešitve? Graf je sicer popolnoma drugačen od J_0(x) a...

Mi lahko vsaj pri tem delu nekdo prosim pomaga, kaj namigne?

Rešil bi rad podobno enačbo, kot sem jo omenil zgoraj:

\(\alpha*b*J_1(\alpha*b)-B*J_0(\alpha*b)=0\)

...pri čemer sta b in B znani konstanti, \(J_0\) in \(J_1\) pa besselovi funkciji. Kako bi najenostavneje rešil takšno transcendentno enačbo?

Mislim da sem uspel najti rešitev za moj problem. Temperaturna odvisnost radija v votlem valju, od r=a do r=b, ter od časa t se glasi: T(r,t)=T_n-T_n\pi\sum_{n=1}^\infty e^{-D\alpha_nt}\frac{J_1(b\alpha_n)^2(Y_0(r\alpha_n)J_0(a\alpha_n)-J_0(r\alpha_n)Y_0(a\alpha_n))}{J_0(a\alpha_n)^2-J_1(b\alpha_n)^...

Morda povdarim še tole: rad bi dobil temperaturni profil od r = a do r = b.

Spectra napisal/-a: ↑

5.5.2017 14:59

... ta način nam enačba da rešitev profila od r=0 ki pada proti robu r=b, kjer je temperatura 0. Privzamemo tudi, da je temperaturni gradient na robu enak 0.

Lapsus, v izpeljavi je privzeto, da je temperaturni gradient enak 0 pri r = 0 in ne na robu, kot bi potreboval jaz...

Lepo pozdravljeni! Že dolgo spremljam ta forum, tokrat pa tudi sam potrebujem nekaj pomoči - pri difuzijski enačbi. Tukaj: http://www.ewp.rpi.edu/hartford/~ernesto/S2006/CHT/Notes/ch03.pdf ...se na strani 5 začne izpeljava za analitično rešitev časovno odvisne difuzijske enačbe v cilindričnih koordi...