Symulacja diody w delphi

Odpowiedz Nowy wątek
2006-11-29 20:13
0

Witam.
Mam do utworzenia macierz, która jest odzwierciedleniem intensywności światłą diody , macierz ma być tak zbudowana, że wartość w śrdoku ma wartość najwiekszą a wartości przy brzegach są wartościami najmniejszymi. (nie wiem czy dość zrozumiale to opisałem). Jeśli ktoś by mógł mi pomóc to proszę o podpowiedź.
Dioda jest tak jaby cosinusoida.

Pozostało 580 znaków

2006-11-29 20:19
0
Tablica :array[1..20] of byte;

for i := 1 to 10 do Tablica[i] := i;
for i := 11 downto 1 do Tablica[i] := i;

<span style="color: blue">"Kolarstwo to jedna z najtrudniejszych dyscyplin sportu. Nawet najgorszy kolarz jest wciąż wybitnym sportowcem."
s.p. Marco Pantani
</span>

Pozostało 580 znaków

2006-11-29 20:23
0

Tak a jak przejść z wymiaru 3D do 2D, bo tak mi sie wydaje ze trzeba to zamienic na jakas funkcje [???]

Pozostało 580 znaków

2006-11-29 20:42
0

A po co 3D na 2D, bo z postu nic takiego nie wynikało ?


<span style="color: blue">"Kolarstwo to jedna z najtrudniejszych dyscyplin sportu. Nawet najgorszy kolarz jest wciąż wybitnym sportowcem."
s.p. Marco Pantani
</span>

Pozostało 580 znaków

2006-11-29 21:07
0

mozna udawac za pomoca funkcji Gaussa

http://mathworld.wolfram.com/GaussianFunction.html

ale jak sie chce przestrzennie to nalezy pamietac, ze led ma strukture warstwowa (oczywiscie jak sie doda lusterko - ten maly kubeczek - to sie swiatlo rozprasze, soczewka, itp.)

tu przyklad dla lasera HeNe
user image
oraz dla diody laserowej
user image


Pozostało 580 znaków

2006-11-29 21:09
0

Bo cały prohgram mma być symulacją świecenia diody, a dioda ma kształt półkola ( dokładnie rzecz biorąc jest taką cosinusoidą przestrzenna) i teraz by trzba bylo te wartości przenisc na podstawe diody ( nie wiem jak to inaczej wytłumaczyć cięzko bez rysunku)

Pozostało 580 znaków

2006-11-29 21:10
0

Bo cały program mma być symulacją świecenia diody, a dioda ma kształt półkola ( dokładnie rzecz biorąc jest taką cosinusoidą przestrzenna) i teraz by trzba bylo te wartości przenisc na podstawe diody ( nie wiem jak to inaczej wytłumaczyć cięzko bez rysunku)

Pozostało 580 znaków

2006-11-29 22:11
0

A pomoże Ci program, który rysuje kulę (lub półkulę), bo mam napisany w pascalu. Zobaczysz jak oblicza się współżedne w macierzy [x,y,z].

CONST
 fi     = 18; { dlugosc geograficzna   }
 lambda = 18; { szerokosc geograficzna }

 Pf = (360 DIV fi) - 1;      { liczba okregow do zbudowania kuli   }
 Pl = (360 DIV lambda) - 1;  { liczba punktow do zbudowania okregu }

VAR
 i, j, k :Integer;           { liczniki petli                      }

TYPE
 TPoint = RECORD X, Y, Z :Real; END;        { rekord na wspolzedne    }

 TKula = ARRAY [0..Pf, 0..Pl] OF TPoint;    { tablica z punktami kuli }
 FOR i := 0 TO Pf DO
  FOR j := 0 TO Pl DO
   BEGIN
    Kula[i,j].X := CosX(j*lambda) * (Rad*CosX(i*fi));
    Kula[i,j].Y := SinX(j*lambda) * (Rad*CosX(i*fi));
    Kula[i,j].Z := SinX(i*fi) * Rad;
   END;

<span style="color: blue">"Kolarstwo to jedna z najtrudniejszych dyscyplin sportu. Nawet najgorszy kolarz jest wciąż wybitnym sportowcem."
s.p. Marco Pantani
</span>

Pozostało 580 znaków

2006-11-29 23:07
0

Ok. Dzięki ale na razie jeszcze nie wiem jak to zrobić, może trzeba się przespać z tym wszystkim

Pozostało 580 znaków

Odpowiedz
Liczba odpowiedzi na stronę

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0