| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Greif
Administrator
Dołączył: 15 Sty 2007
Posty: 756
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Piotrowice k.Oświęcimia
|
 Wysłany: Pon 22:09, 15 Sty 2007 Temat postu: Fraktale |
|
|
Ten temat zawsze lubiłem, fraktale są piękne...
Zamieszczę tu przykładowy listing na prosty fraktal, zobaczymy czy uda się go Wam uruchomić. Przekleić najlepiej do Notatnika SP a potem zapisać jako program PAS.
| Kod: |
program Dwa_przeksztalcenia; {Turbo Pascal 7.0}
uses graph,crt; var karta,tryb,prz,skala:integer; x,y,xNowe,yNowe:real;
const t: array[1..12] of real= (0,0.9,-0.4,-0.4,0,-0.5,0.5,-1,0.5,0.3,0.6,-0.6);
begin
clrscr;
karta:=detect; initGraph(karta,tryb,''); randomize;
x := 0; y := 0; skala:=80;
repeat
prz := random(2); {losowanie przeksztalcenia}
xNowe:=t[prz*6+1]*x+t[prz*6+2]*y+t[prz*6+3]; {obliczanie nowych wspolrzednych}
ynowe:=t[prz*6+4]*x+t[prz*6+5]*y+t[prz*6+6];
x := xNowe;
y := yNowe;
putPixel(round(x*skala+320),round(-y*skala+240),prz+3); {rysowanie nowego punktu}
Delay(1);
until keyPressed;
readLn; closeGraph;
end.
|
Program pochodzi ze strony:
[link widoczny dla zalogowanych]
Jeżeli chcecie, żeby szybciej działał, zmieńcie linijkę przy końcu programu Delay(1) na Delay(0)
Pozdrawiam
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
 |
|
|
 |
mogur
Coś już napisał
Dołączył: 15 Sty 2007
Posty: 41
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
Skąd: Alwernia
|
| Wysłany: Czw 20:20, 18 Sty 2007 Temat postu: ten też |
|
|
| Kod: | program Trzy_przeksztalcenia_afiniczne;
uses graph,crt; var karta,tryb,prz,skala:integer;
x,y,xNowe,yNowe:real;
const t:array[1..18] of real= (0.5,-0.8,0.5,0.0,0.5,-0.1,
0.5,0.0,0.0,0.0,0.5,0.4,0.5,0.6,-0.4,0.0,0.6,-0.4);
begin
karta:=detect; initGraph(karta,tryb,''); randomize;
x := 0; y := 0; skala:=180;
repeat
prz := random(3);
xNowe:=t[prz*6+1]*x+t[prz*6+2]*y+t[prz*6+3];
ynowe:=t[prz*6+4]*x+t[prz*6+5]*y+t[prz*6+6];
x := xNowe; y := yNowe;
putPixel(round(x*skala+320),round(-y*skala+240),prz+2);
until keyPressed;
readLn; closeGraph;
end. |
Program pochodzi ze strony:
[link widoczny dla zalogowanych]
Tu jest kilka (57) kodów Eugeniusza Jakubasa, które mogą się przydać
[link widoczny dla zalogowanych]
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
|
