from spatial domain method

power low

logarithim

i want to know how to write on delhpi.

thanks

5 posts
• Page **1** of **1**

from spatial domain method

power low

logarithim

i want to know how to write on delhpi.

thanks

power low

logarithim

i want to know how to write on delhpi.

thanks

- deeperlay
- Member
**Posts:**4**Joined:**December 17th, 2009, 5:22 pm

thz a lot brother.....

- deeperlay
- Member
**Posts:**4**Joined:**December 17th, 2009, 5:22 pm

hi brother

thz a lot again

ur great... not easy to shar this program, it is too high ....

be success

i want to know how to write on delphi

y:= c(1+r);//

//(c= 255 div log10 ^0 to 255 )

//////////////

proceduer log;

var

i,j:integer;

ab: integer;

begin

GREYinttoGREYbyte;

for i:=0 to h-1 do

for j:=0 to w-1 do

//ab:=255; //div ln(255);

begin

GREYbyte1[i,j]:= ( c value )*(1+GREYbyte[i,j]) ;

end;

Copybyte10;

GREYbytetoGREYint;

end;

/////////////////////////////////////////

it is

var

i,j,aa,bb,a1,a2:integer;

//a2:real;

// s:string;

begin

GREYinttoGREYbyte;

//aa:=100;

//bb:=150;

aa:= strtoint(a.Text);//don't know it ,show me error message

bb:= strtoint(b.Text);//don't know it ,show me error message

//s:= inttostr(aa);

//form1.Canvas.Draw(0,0,BitMap);

for i:=0 to h-1 do

for j:=0 to w-1 do

begin

if GREYbyte[i,j]<aa then GREYbyte1[i,j]:=0;

if GREYbyte[i,j]>bb then GREYbyte1[i,j]:=255;

if (GREYbyte[i,j]>=aa) AND (GREYbyte[i,j]<=bb) then

begin

a1:= bb - aa;

a2:=GREYbyte[i,j]-aa;

GREYbyte1[i,j]:= (a2*255 )div(a1);

end;

end;

Copybyte10;

GREYbytetoGREYint;

end;

//////////////////

thanks

thz a lot again

ur great... not easy to shar this program, it is too high ....

be success

i want to know how to write on delphi

y:= c(1+r);//

//(c= 255 div log10 ^0 to 255 )

//////////////

proceduer log;

var

i,j:integer;

ab: integer;

begin

GREYinttoGREYbyte;

for i:=0 to h-1 do

for j:=0 to w-1 do

//ab:=255; //div ln(255);

begin

GREYbyte1[i,j]:= ( c value )*(1+GREYbyte[i,j]) ;

end;

Copybyte10;

GREYbytetoGREYint;

end;

/////////////////////////////////////////

it is

var

i,j,aa,bb,a1,a2:integer;

//a2:real;

// s:string;

begin

GREYinttoGREYbyte;

//aa:=100;

//bb:=150;

aa:= strtoint(a.Text);//don't know it ,show me error message

bb:= strtoint(b.Text);//don't know it ,show me error message

//s:= inttostr(aa);

//form1.Canvas.Draw(0,0,BitMap);

for i:=0 to h-1 do

for j:=0 to w-1 do

begin

if GREYbyte[i,j]<aa then GREYbyte1[i,j]:=0;

if GREYbyte[i,j]>bb then GREYbyte1[i,j]:=255;

if (GREYbyte[i,j]>=aa) AND (GREYbyte[i,j]<=bb) then

begin

a1:= bb - aa;

a2:=GREYbyte[i,j]-aa;

GREYbyte1[i,j]:= (a2*255 )div(a1);

end;

end;

Copybyte10;

GREYbytetoGREYint;

end;

//////////////////

thanks

- deeperlay
- Member
**Posts:**4**Joined:**December 17th, 2009, 5:22 pm

i got it couse i run this code other unit... so program don't know

aa:= strtoint(a.Text);

bb:= strtoint(b.Text);

when i wrote in unit1 , i got it...

thanks

aa:= strtoint(a.Text);

bb:= strtoint(b.Text);

when i wrote in unit1 , i got it...

thanks

- deeperlay
- Member
**Posts:**4**Joined:**December 17th, 2009, 5:22 pm

5 posts
• Page **1** of **1**

Users browsing this forum: Bing [Bot] and 4 guests