Witaj :)
Oto program
Z góry serdecznie dziękuję
tu zamieszczam strony , gdzie ukazany jest efekt końcowy, jaki
powinnam mniej więcej uzyskać:
www.efg2.com/Lab/Graphics/Colors/MaxwellTriangle.htm
semmix.pl/color/indexp.html
var
w,k:integer;
poleduze,polemale1,polemale2,polemale3:real;
od11,od12,od13:real;
bok:real;
polobm,polobm1,polobm2,polobm3:Real;
begin
for w:=0 TO 510 DO
for k:=0 TO 510 DO
begin
bok:=sqrt(-250)sqr(0-0);
poleduze:=sqrt(polobm(polobm-510)(polobm-bok)(polobm-bok));
od11:=sqrt(sqr(250-k)sqr(0-w));
od12:=sqrt(sqr(0-k)sqr(0-w));
od13:=sqrt(sqr(510-k)sqr(510-k));
polobm:=0.5od11od12bok;
polobm1:=0.5od11od12bok;
polobm2:=0.5od11od13bok;
polobm3:=0.5od12od13bok;
polemale1:=sqr(polobm1(polobm1-od11)(polobm1-od12)(polobm1-
bok));
polemale2:=sqr(polobm1*(polobm2-od11)(polobm2-od13)(polobm2-
bok));
polemale3:=sqr(polobm3*(polobm3-od12)(polobm3-od13)(polobm3-
bok));
if polemale1+polemale2+polemale3<=poleduze then
image1.Canvas.Pixels [k,w]:=RGB(230,8,5);
end;
end.