道歉啟事:    先前此文意外的po在Delphi的討論區中    本人對於此事感到十分抱歉    於此對K.TOP討論區的板主表示個人萬分的歉意     ******************** 各位大大 好:     小弟最近遇到困難導致惡夢連連      還請各位高手指點迷津        多項式可以看成是 係數與項次 的內積 相加     那不知道要如何在Memo中顯示出多項式??     另外如何將多項式繪畫出來,其中最大值為255,最小值為0??     以下是所撰寫的code(新手上路請多見諒)     [code]...............start    void __fastcall TForm1::Button1Click(TObject *Sender) {   int x,y;   float a[2]={pow(x,2),pow(y,2)};   float b[2]={1,1};   float c[2];   float sum;   int i;     for (i=0;i<2;i ) { c[i] =a[i]*b[i]; Memo1->Lines->Add(c[i]); } for (y=0;y<200;y ){ for (x=0;x<200;x ){ for (i=0;i<2;i ) sum =c[i]; Image1->Canvas->Pixels[x][y]=TColor(RGB(sum*255/100000000,0,0)); } } } [code]...................end

引言: 不好意思這個問題掛在這有一陣子 小弟已經想到解決方法 在此向各位獻醜 還請見諒 其實多項式想簡單點就如下所示: c =a[i]*b[i] 只要先定義好 係數a[i] 及 xy函數b[j] [code start]----------- void __fastcall TForm1::Button4Click(TObject *Sender) { double wavefront[201][201]; double x[201]; double y[201]; float zercof[6]; int i,j; for (i=0;i<201;i ){ x[i]=(i-100)*0.01; y[i]=-1*(i-100)*0.01; } zercof[0]=StrToFloat(Edit3->Text); !!此處為呼叫係數值 zercof[1]=StrToFloat(Edit4->Text); zercof[2]=StrToFloat(Edit5->Text); zercof[3]=StrToFloat(Edit6->Text); zercof[4]=StrToFloat(Edit7->Text); zercof[5]=StrToFloat(Edit8->Text); //------求的wavefront最大值及最小值---------- int a=0,b=0; float maxcc,mincc; !!下式x[i],y[j],]-1 2*(pow(x[i],2) pow(y[j],2))...為xy函數 for (i=0;i<201;i ){ for (j=0;j<201;j ){ wavefront[i][j]=2*zercof[0]*x[i] 2*zercof[1]*y[j] sqrt(3.0)* zercof[2]*(-1 2*(pow(x[i],2) pow(y[j],2))) zercof[3]*sqrt(6.0)*(pow(x[i],2)-pow(y[j],2)) zercof[4]*2*sqrt(6.0)*x[i]*y[j] zercof[5]*2* sqrt(2.0)*(-2*x[i] 3*x[i]*(pow(x[i],2) pow(y[j],2))); if(wavefront[i][j]>wavefront[a][b]) { a=i ; b=j; } } } maxcc=wavefront[a][b]; for (i=0;i<201;i ){ for (j=0;j<201;j ){ if(wavefront[i][j]Text=FloatToStr(maxcc); Edit10->Text=FloatToStr(mincc); //----繪畫wavefront-------- for (i=0;i<201;i ){ for (j=0;j<201;j ){ if (pow(x[i],2.0) pow(y[j],2.0)<=1) wavefront[i][j]=255/(maxcc abs(mincc))*(abs(mincc) 2*zercof[0]* x[i] 2*zercof[1]*y[j] sqrt(3.0)*zercof[2]*(-1 2*(pow(x[i],2) pow(y[j],2))) zercof[3]*sqrt(6.0) *(pow(x[i],2)-pow(y[j],2)) zercof[4]*2* sqrt(6.0)*x[i]*y[j] zercof[5]*2*sqrt(2.0)*(-2* x[i] 3*x[i]*(pow(x[i],2) pow(y[j],2)))); else wavefront[i][j]=0; Image1->Canvas->Pixels[i][j]=TColor(RGB(wavefront[i][j],wavefront[i][j],wavefront[i][j])); } } } //-----------------------------------------------------------------[code end]---------------------------------

[i]