Já jsem zjistil, že jakmile si pustím nějakou ženskou k tělu, začne žárlit, podezírat, vnucovat se a šíleně otravovat. Zjistil jsem, že jakmile se já spustím s nějakou ženskou, je ze mne sobec a tyran. Ženské všechno obrátí vzhůru nohama.
-- Shaw
-- Shaw
■ 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 57 added 49 lines. |
| !!!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] |
| }}} |
View page
Více informací...
Přihlášení
Tato strana (revision-9) byla změněna
22:41 20.11.2007
uživatelem xkrumpha.