var

TD : TDateTime;

kk : string;

ox, rw, sm, LifeDay, tmp : integer;

begin

sm := 170;

TD := Date;

BD.Text :='1975-12-20';

LifeDay := StrToInt(FloatToStr(TD - StrToDate(BD.Text) - 9));

tmp := LifeDay;

BodyL := SIN(2 * 3.1415926 * ((LifeDay-1) / 23));

FeelL := SIN(2 * 3.1415926 * ((LifeDay-1) / 28));

IntelL := SIN(2 * 3.1415926 * ((LifeDay-1) / 33));

rw := 17;

ox := 0;

for i := 0 to wid do

begin

ox := ox + rw;

BodyL := SIN(2 * 3.1415926 * LifeDay / 23);

LineTo(ox,trunc(BodyL * sm * (-1) + sm));

Inc(LifeDay);

end;



ox := 0;

for i := 0 to wid do

begin

ox := ox + rw;

FeelL := SIN(2 * 3.1415926 * LifeDay / 28);

LineTo(ox,trunc(FeelL * sm * (-1) + sm));

Inc(LifeDay);

end;



ox := 0;

for i := 0 to wid do

begin

ox := ox + rw;

IntelL := SIN(2 * 3.1415926 * LifeDay / 33);

LineTo(ox,trunc(IntelL * sm * (-1) + sm));

Inc(LifeDay);

end;

end;



위의 script로 바이로리듬을 출력하면 감성지수와 인성지수가 제대로 출력되지 않은데 무엇인 잘못된 것인지 고수분들의 도움이 필요합니다.



감사합니다.