Kdo se směje, místo aby zuřil, je vždycky silnější.
-- japonské přísloví
-- japonské přísloví
■ 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 added 100 lines. |
| !!Knihovna metody sledování paprsku |
| 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. |
| Každý paprsek je jednoznačně určen následujícími atributy: |
| {{{ |
| {{ výchozí bod},{koncový bod},{intenzita paprsku, index lomu prostředí ve kterém se paprsek nachází}} |
| }}} |
| V budoucnu lze volitelně přidat i vlnovou délku a další atributy. |
| Parametry zrcadla |
| {{{ |
| {{výchozí bod}, {koncový bod}, {identifikace zrcadla = 1, účinnost odrazu ∈ (0, 1)}} |
| }}} |
| Intenzita paprsku je při odrazu od zrcadlových částečně tlumena. |
| Pro práci s průhlednými tělesy je nutné přidat další optickou entitu, kterou jsou průhledná tělesa (např. |
| optické hranoly), na kterých se paprsek lomí. |
| Parametry průhledného povrchu: |
| {{{ |
| {{výchozí bod}, {koncový bod}, {identifikace průhledného povrchu = 2,0},{index lomu1, index lomu 2}} |
| }}} |
| Iterativní sledování paprsku se spouští zavoláním funkce SledujPaprsekEx, která má jako parametry paprsek, pole optických segmentů - zrcadel a průhledných povrchů, parametr iteraci při prvním spuštění je 1 a ignorujSegment 0. |
| {{{ |
| SledujPaprsekEx[Paprsek_, PoleOptickychSegmentu_, iterace_, ignorujSegment_] |
| }}} |
| !!!Příklad |
| 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.