Ha valaki sokat számol az említett formulával levegõ esetén, akkor illessze be az alábbi rövid VisualBASIC kódot egy új modul-ba a saját Excel-ének VisualBASIC szerkesztõjében:
'--- STOLZ függvény -----------------
Function STOLZ(d_mp, d_cso, dp_mp, p_be_mp, t_be_mp, eps, eps_alfa, maxiter)
Loop Until ((alfa_uj - alfa_regi) / alfa_uj <= eps_alfa) Or (iteracioszam >= maxiter)
STOLZ = alfa_uj
End Function
'--- Itt a vége -----------------
A beillesztéshez:
=================
Excel fõmenüben kiválasztjuk az 'Eszközök' -> 'Makró' -> 'VisualBASIC szerkesztõ' pontot, majd a megjelenõ képernyõn a fõmenüben az 'Insert' -> 'Module' menüpontot. Ekkor a jobboldali szerkesztõablakba egyszerûen bemásoljuk a függvényt és rányomunk a 'Mentés'-re, majd bezárjuk a VisualBASIC szerkesztõt (kattintás a jobb felsõ sarokban a "kereszten").
Ha átfolyási tényezõt kell számolni, a 'STOLZ' függvény megtalálható lesz a függvények között, mégpedig a 'Felhasználói' függvény-kategóriában.
Használathoz:
=============
A kívánt helyen az adott cellába beírjuk az egyenlõségjelet és az 'fx' ikonon kattintva elõcsaljuk a beilleszthetõ függvények listáját. A 'Felhasználói' csoportban lesz a 'STOLZ'. Ezen kattintva megjelenik a függvényargumentumokra váró panel, ahol sorrendben a következõ adatokat kell megadni:
d_cso [m]: csõátmérõ (a mérõperem "nagy" átmérõje)
dp_mp [Pa]: a mérõperem két megcsapolási helye közötti nyomáskülönbség
p_be_mp [Pa]: a mérõperembe belépõ közeg abszolút nyomása
t_be_mp [C]: a mérõperembe belépõ közeg hõmérséklete
eps [1]: expanziós szám
eps_alfa [1]: megállási feltétel: az új és az elõzõ iterációs lépés során számított alfa relatív hibája az ÚJ(!) alfához viszonyítva - azért ahhoz, mert az iteráció konvergens és a pontos érték hibáját akarom megadni (ez akár vitaindító is lehet...) - a hiba eps_alfa alá kell hogy csökkenjen.
maxiter [1]: megállási feltétel: maximális iterációk száma. Az iteráció végetér, ha legalább ennyit iterált a program.
A két kilépési feltétel közül amelyik hamarabb igaz lesz, akkor fejezõdik be az iteráció.
A függvény számítja a közeg adott állapotbeli (mérõperem elõtti) állapotában a sûrûségét és a kinematikai viszkozitását (a Váradi Sándor által összeállított Ciklon mérési útmutató alapján).
Minden észrevételnek örülök ezzel kapcsolatban - és remélem az UNTIL után jól állnak a relációjelek - nagy baj nem lehet, mivel hátultesztelõs, egyet biztos iterál ;) .