Kdybychom sami neměli chyby, nečinilo by nám to takové potěšení upozorňovat na chyby druhých.
-- Rochefoucauld
-- Rochefoucauld
■ Diskuzní fórum
■ Pískoviště
■ Poslední změny
■ Registrace
■ Etický kodex
■ Nápověda
■ Administrace
■ Hlášení chyb
■ Pískoviště
■ Poslední změny
■ Registrace
■ Etický kodex
■ Nápověda
■ Administrace
■ Hlášení chyb
 |  |
© 1999-2008 HEAT
JSPWiki v2.4.104
| At line 1 added 2 lines. |
| [{ALLOW view All}] |
| [{ALLOW edit,upload Trusted}] |
| At line 24 changed 1 line. |
| Zdroje záření jsou modelovány množinou emitovaných paprsků, každý paprsek má přiřazenu svoji počáteční intenzitu. |
| V rámci disertační práce "Optimalizace zářivého přenosu tepla v elektrotepelné technice" byla vytvořena knihovna, která implementuje metodu sledování paprsku. Zdroje záření jsou modelovány množinou emitovaných paprsků, každý paprsek má přiřazenu svoji počáteční intenzitu. |
| At line 57 changed 1 line. |
| ''Under Construction'' [Pics/uc.gif] |
| !!!Příklad |
| At line 61 added 63 lines. |
| Nejprve načteme knihovnu sledování paprsku, nastavíme maximální počet odrazů (důležitý parametr proti zacyklení) a výřez, který bude zobrazován. |
| {{{ |
| Get["c:/creflector.m"]; |
| MaxIterationNumber=10; |
| vyrezGrafu={{0.,6.},{-5.,5.}}; |
| }}} |
| Paprsek pošleme šikmo do konfigurace. |
| {{{ |
| Paprsky = {{3., 4.}, {2., 3.7}, {1., 1.}}; |
| }}} |
| Konfiguraci budou tvořit dvě paralelní ideální zrcadlové plochy |
| {{{ |
| PoleOptickychSegmentu = Join[{ |
| {{1., -4.}, {1., 4.}, {1., 1.}}, |
| {{5., -4.}, {5., 4.}, {1., 1.}} |
| }]; |
| }}} |
| Připravíme a vynulujeme proměnnou, do které bude vkládána cesta paprsku při odrazech. |
| {{{ |
| paprskyProGrafiku = {{{0, 0}, {0, 0}} }; |
| }}} |
| A pustíme na to algoritmus. |
| {{{ |
| SledujPaprsekEx[Paprsky, PoleOptickychSegmentu, 1, 0]; |
| }}} |
| Výsledek zobrazíme funkcí |
| {{{ |
| NakresliKonfiguraciEx[PoleOptickychSegmentu, paprskyProGrafiku] |
| }}} |
| [konfigurace1.png] |
| Nyní do cesty vložíme skleněný hranol. |
| {{{ |
| PoleOptickychSegmentu = Join[{ |
| {{1., -4.}, {1., 4.}, {1., 1.}}, |
| {{5., -4.}, {5., 4.}, {1., 1.}}, |
| {{3., 2.}, {2., 0.}, {2., 0.}, {1., 1.52}}, |
| {{2., 0.}, {4., 0.}, {2., 0.}, {1., 1.52}}, |
| {{3., 2.}, {4., 0.}, {2., 0.}, {1., 1.52}} |
| }]; |
| paprskyProGrafiku = {{{0, 0}, {0, 0}} }; |
| SledujPaprsekEx[Paprsky, PoleOptickychSegmentu, 1, 0]; |
| NakresliKonfiguraciEx[PoleOptickychSegmentu, paprskyProGrafiku] |
| }}} |
| Výsledek je zajímavý tím, že došlo k totálnímu odrazu od vnitřního povrchu skleněného hranolu. |
| [konfigurace2.png] |
View page
Více informací...
Přihlášení
Tato strana (revision-9) byla změněna
22:41 20.11.2007
uživatelem xkrumpha.