Автор: Пользователь скрыл имя, 25 Декабря 2010 в 14:09, курсовая работа
При выполнении работы можно использовать следующее понимание полинома. Полином состоит из мономов. Каждый моном характеризуется коэффициентом Coef и степенями переменных A, B, C: Coef*xAyBzC. Величину степеней переменных можно ограничить значением 9. При таком предположении максимально возможное количество мономов в полиноме - 1000. Полином разрежен, если по сравнению с максимально возможным количеством мономов он имеет относительно небольшое количество отличных от нуля коэффициентов. Например, у полинома P(x,y,z) отличных от нуля коэффициентов всего 4.
end;
for i:=1 to n do
for j:=1 to n do
xyr[i,j]:=x1y1[i,j]-x2y2[i,j];
for i:=1 to n do
if xr[i]<>0 then
s1:=s1+'+('+inttostr(xr[i])+'
for i:=1 to n do
if yr[i]<>0 then
s1:=s1+'+('+inttostr(yr[i])+'
for i:=1 to n do
for j:=1 to n do
if xyr[i,j]<>0 then
s1:=s1+'+('+inttostr(xyr[i,j])
memo1.Lines.Add(s1);
end;
procedure TForm1.N4Click(Sender: TObject);
var i,j:integer;
begin
memo1.Lines.Add('Умножение');
s1:='';
for i:=1 to 2*n do
for j:=1 to 2*n do
begin
xr1[i]:=0;
yr1[i]:=0;
xyr1[i,j]:=0;
end;
for i:=1 to n do
for j:=1 to n do
begin
xr1[i+j]:=xr1[i+j]+x1[i]*x2[j]
yr1[i+j]:=yr1[i+j]+y1[i]*y2[j]
xyr1[i,j]:=xyr1[i,j]+x1[i]*y2[
xyr1[j,i]:=xyr1[j,i]+y1[i]*x2[
//xyr1[i,j]:=xyr1[i,j]+y1[i]*
xyr1[i,j+j]:=xyr1[i,j+j]+x1y1[
xyr1[i+j,j]:=xyr1[i+j,j]+x1y1[
xyr1[i+i,j]:=xyr1[i+i,j]+x2y2[
xyr1[i,j+i]:=xyr1[i,j+i]+x2y2[
xyr1[i+i,j+j]:=xyr1[i+i,j+j]+
end;
for i:=1 to 2*n do
if xr1[i]<>0 then
s1:=s1+'+('+inttostr(xr1[i])+'
for i:=1 to 2*n do
if yr1[i]<>0 then
s1:=s1+'+('+inttostr(yr1[i])+'
for i:=1 to 2*n do
for j:=1 to 2*n do
if xyr1[i,j]<>0 then
s1:=s1+'+('+inttostr(xyr1[i,j]
memo1.Lines.Add(s1);
end;
end.