первую ошибку я уже пофиксил забыл описать, теперь подправил немного возникает вот что (я постоянно скидывать код тогда буду для ясности)
| Код |
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "ImageBase.h"
#include "bmpfile.h"
#include <math.h>
#include "Unit1.h"
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int rect_func(float x) {
if( abs<float>(x) <= 0.5 )
{
return 1;
}
else
{
return 0;
}
};
int N = 256;
TDateTime T1, T2;
ImageBase arrayIn(N, N);
ImageBase arrayIn_Copy(N, N);
ImageBase CopyArr2(N, N);
ImageBase value_of_intOut(N, N);
ImageBase value_of_intIn(N, N);
ImageBase phasaIn(N, N);
int i, j, num_it;
float x, y, epsOne, epsTwo, eps1, eps2;
float value_of_phasa = 3*3.14/2;
float intIn = 1.0;
complex<float> imUnit = complex<float>(0, 1);
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Timer1->Enabled=true;
T1=Time();
int SIZE = N;
for(i = 0; i < SIZE; i++) {
for(j = 0; j < SIZE; j++) {
value_of_intIn.ImageComplex[i][j] = intIn;
}
}
for(i = 0; i < SIZE; i++) {
for(j = 0; j < SIZE; j++) {
phasaIn.ImageComplex[i][j] = value_of_phasa;
}
}
num_it = 0;
int it = StrToInt(Form1->Edit3->Text);
float am, amTwo;
do {
num_it++;
for(i = 0; i< SIZE; i++) {
for(j = 0; j < SIZE; j++) {
arrayIn.ImageComplex[i][j] = (value_of_intIn.ImageComplex[i][j])*exp(imUnit*phasaIn.ImageComplex[i][j]);
}
}
arrayIn.fft(1);
for(i = 0; i< SIZE; i++) {
for(j = 0; j < SIZE; j++) {
arrayIn_Copy.ImageComplex[i][j] = arrayIn.ImageComplex[i][j];
}
}
for(i = 0; i< SIZE; i++) {
for(j = 0; j < SIZE; j++) {
arrayIn.ImageComplex[i][j] = abs(value_of_intOut.ImageComplex[i][j])*exp(imUnit*arg(arrayIn.ImageComplex[i][j]));
}
}
arrayIn.fft(-1);
for(i = 0; i< SIZE; i++) {
for(j = 0; j < SIZE; j++) {
CopyArr2.ImageComplex[i][j] = arrayIn.ImageComplex[i][j];
}
}
for(i = 0; i< SIZE; i++) {
for(j = 0; j < SIZE; j++) {
phasaIn.ImageComplex[i][j] = arg(arrayIn.ImageComplex[i][j]);
}
}
float s1;
float s2;
float arr;
s1 = 0;
s2 = 0;
arr = 0;
CopyArr2.Norm();
arrayIn_Copy.Norm();
for( i = 0; i < SIZE; i++) {
for(j = 0; j < SIZE; j++) {
arr = abs(CopyArr2.ImageComplex[i][j]) - sqrt(real(value_of_intIn.ImageComplex[i][j]));
arr = (arr)*(arr);
s1 += arr;
s2 += real(value_of_intIn.ImageComplex[i][j]);
}
}
eps1 = sqrt(s1)/sqrt(s2);
s1 = 0;
s2 = 0;
arr = 0;
for( i = 0; i < SIZE; i++) {
for(j = 0; j < SIZE; j++) {
arr = abs(arrayIn_Copy.ImageComplex[i][j]) - sqrt(real(value_of_intOut.ImageComplex[i][j]));
arr = (arr)*(arr);
s1 += arr;
s2 += real(value_of_intOut.ImageComplex[i][j]);
}
}
eps2 = sqrt(s1)/sqrt(s2);
}
while (num_it < it);
phasaIn.ViewImageComplex(Image1, 0, 1.0, 1.0);
value_of_intOut.ViewImageComplex(Image2, 0, 1.0, 1.0);
arrayIn_Copy.ViewImageComplex(Image3, 0, 1.0, 1.0);
Form1->Edit2->Text = eps2;
Form1->Edit1->Text = eps1;
Form1->Edit4->Text = num_it;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
// phasaIn.WriteFile("phasa.bmp", 1);
Timer1->Enabled=false;
}
void __fastcall TForm1::Button4Click(TObject *Sender)
{
value_of_intOut.WriteFile("image.bmp", 1);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
value_of_intOut.ReadFile("image.bmp");
value_of_intOut.ViewImageComplex(Image2, 0, 1.0, 1.0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
Form2->Show();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
for(x = 0.0, i = 0; i < N; i++, x++) {
for(y = 0.0, j = 0; j < N; j++, y++) {
value_of_intOut.ImageComplex[i][j] = 0;
}
}
int b, s, d;
b = StrToInt(Form2->Edit1->Text);
s = 256 - b;
d = s/2;
for(x = 0.0, i = d; i < d + b; i++, x++) {
for(y = 0.0, j = d; j < d + b; j++, y++) {
value_of_intOut.ImageComplex[i][j] = 1;
}
}
value_of_intOut.ViewImageComplex(Image2, 0, 1.0, 1.0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button8Click(TObject *Sender)
{
for(x = 0.0, i = 0; i < N; i++, x++) {
for(y = 0.0, j = 0; j < N; j++, y++) {
value_of_intOut.ImageComplex[i][j] = 0;
}
}
int check, dlina, shirina, dl, shir;
dlina = StrToInt(Form2->Edit3->Text);
shirina = StrToInt(Form2->Edit2->Text);
shir = (N - shirina)/2;
dl = (N - dlina)/2;
if(Form2->CheckBox1->Checked) {
check = 1;
}
for(i = shir; i < shir + shirina; i++) {
for(j = dl; j < dlina + dl; j++) {
if(check == 1) {
value_of_intOut.ImageComplex[i][j] = 1;
}
else {
value_of_intOut.ImageComplex[j][i] = 1;
}
}
}
value_of_intOut.ViewImageComplex(Image2, 0, 1.0, 1.0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button9Click(TObject *Sender)
{
for(x = 0.0, i = 0; i < N; i++, x++) {
for(y = 0.0, j = 0; j < N; j++, y++) {
value_of_intOut.ImageComplex[i][j] = 0;
}
}
int check, dlina, shirina, dl, shir;
dlina = StrToInt(Form2->Edit4->Text);
shirina = StrToInt(Form2->Edit5->Text);
shir = (N - shirina)/2;
dl = (N - dlina)/2;
for(i = shir; i < shir + shirina; i++) {
for(j = dl; j < dlina + dl; j++) {
value_of_intOut.ImageComplex[i][j] = 1;
value_of_intOut.ImageComplex[j][i] = 1;
}
}
value_of_intOut.ViewImageComplex(Image2, 0, 1.0, 1.0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
TDateTime T1, T2;
String S;
T2=Time();
DateTimeToString(S,"hh:mm:ss",T2-T1);
//è âûâåñòè äàííûå íà ýêðàí
Label1->Caption=S;
}
//---------------------------------------------------------------------------
|
[Linker Error] Unresolved external '__fastcall TForm1::Edit5Change(System::TObject *)' referenced from D:\FLASH\ÊÎÏÈß ÑÒÀÐÎÃÎ ÍÈÐÀ\ÍÈÐ\UNIT1.OBJ
а вот собственно ошибка какая |
