Message Boards Message Boards

Colorizing beyond tomgographies and gray images

GROUPS:

Here are the lines of a simple colorizing program, but I am stuck focusing it with the Wolfram platform, any one knows how to make it readable by other languages?

p12=Image[ ]

p1=Colorize[p12,ColorRules->{j->Yellow,.1*j->LightYellow , .01*j ->Purple ,.001*j-> LightPurple ,k->Blue,.001*K-> LightBlue ,ComplexInfinity->White}]
p2=ImageData[%]
Image[v]
HistogramTransform==v
u=ImageDimensions[p1]
t=Reverse[u]
o1=ImageLevels[p1]
p=Flatten [p2]
ImageHistogram[p1]
ImageHistogram [p12]
n=p*(p-Power[p, (p)^-1])
l=p-p*Power[p, (p)^-1]
k=n/l
j=(n/l)^p

bg=Binarize[o1, f]

Module f= PixelValue=j->Yellow=j->Yellow=j->Blue=k->Blue->{p1,j}
ReplacePixelValue[p1,{j,p1}]
f=Module{u}->Yellow==20>j>1->j->{j;p1}==Yellow=Yellow=j
Column[ColorConvert[j,v]&/@{"Green"}]
ImageApply[UnitStep[f]&,bg]
SetAlphaChannel[f,p1]
ImageHistogram [p1]
ImageTransformation[p1,{f}&,DataRange->{{All}}]
ImageHistogram [v]
Do [NestWhile .1 * 10^-7<j<20 [HistogramTransform[p1]]]
v=HistogramTransform[p1]
c=ImageSubtract[v,p1]
d=Colorize[c,ColorRules->{j->Yellow,k->Blue}]
c3=HistogramTransform[c]
c2=ImageSubtract[d,c]
g=Image[p1]
ColorSeparate[g,"Red"]
z=ImageSubtract[ImageSubtract[#1]& @@ ColorSeparate[g,"Blue"]]
v1=ImageSubtract[g,z]
ImageSubtract[p1,v1]
b=ImageFilter[MedianDeviation[Flatten[#]]&,c2,2]// ImageAdjust
z1=ImageSubtract[ImageSubtract[#1]& @@ ColorSeparate[c2,"Blue"]]
b1=Colorize[z1,ColorRules->{z1->Pink,ComplexInfinity->White}]
ImageMultiply[c2,c3]
img=HistogramTransform[%]
DominantColors[%]
ImageMultiply[v,c,d,c2,g,z,c3]
HistogramTransform[%]
p21=ImageData[img]
p13=Image[v5]
DominantColors[%]
HistogramTransform==v5
u1=ImageDimensions[p21]
t1=Reverse[u1]
o12=ImageLevels[p21]
pr=Flatten [p21]
ImageHistogram[p13]
ImageHistogram [img]
n1=pr*(pr-Power[pr, (pr)^-1])
l1=pr-pr*Power[pr, (pr)^-1]
k1=n1/l1
j1=(n1/l1)^pr

bg1=Binarize[o12, f1]

Module f1= PixelValue=j1->Yellow=j1->Yellow=j1->Blue=k1->Blue->{img,j1}
ReplacePixelValue[img,{j1,img}]
f1=Module{u1}->Yellow==20>j1>1->j1->{j1;img}==Yellow=Yellow=j1
Column[ColorConvert[j1,v5]&/@{"Green"}]
ImageApply[UnitStep[f1]&,bg1]
SetAlphaChannel[f1,img]
ImageHistogram [img]
ImageTransformation[img,{f1}&,DataRange->{{All}}]
ImageHistogram [v5]
Do [NestWhile .1 * 10^-7<j1<20 [HistogramTransform[img]]]
v5=HistogramTransform[img]
d1=ImageSubtract[z,c3]
ImageSubtract[d,d1]
c1=HistogramTransform[%]
c3=ImageSubtract[c,c1]
c4=ImageMultiply[d1,c3]

g=ImageSubtract[v,c,d,c2,g,z,c3]
g1=ImageAdd[v,c,d,c2,g,z,c3]
ImageMultiply[g,g1]
a=HistogramTransform[%]
ImageSubtract[a,b]
ImageMultiply[a,b]
HistogramTransform[%]
F=ImageAdd[c1,c4]
DominantColors[%]
ImageAdd[c1,v]
DominantColors[%]
F1=HistogramTransform[F]
ImageAdd[F1,F]
ImageSubtract[F1,F]
f2=ImageSubtract[F,F1]
ct1=ImageCompose[F,F1]
f3=ImageAdd
p14=Image[p12]

p24=ImageData[%]
Image[v]
HistogramTransform==v4
u4=ImageDimensions[p14]
t4=Reverse[u4]
o14=ImageLevels[p14]
p4=Flatten [p24]
ImageHistogram[p14]
ImageHistogram [p12]
n4=p4*(p4-Power[p4, (p4)^-1])
l4=p4-p4*Power[p4, (p4)^-1]
k=n4/l
j=(n4/l4)^p4

bg4=Binarize[o14, f4]

Module f4= PixelValue=j4->Yellow=j4->Yellow=j4->Blue=k4->Blue->{p14,j4}
ReplacePixelValue[p14,{j4,p14}]
f4=Module{u4}->Yellow==20>j4>1->j4->{j4;p14}==Yellow=Yellow=j4
Column[ColorConvert[j4,v]&/@{"Green"}]
ImageApply[UnitStep[f4]&,bg4]
SetAlphaChannel[f4,p14]
ImageHistogram [p14]
ImageTransformation[p14,{f4}&,DataRange->{{All}}]
ImageHistogram [v4]
Do [NestWhile .1 * 10^-7<j4<20 [HistogramTransform[p14]]]
v4=HistogramTransform[p14]
c4=ImageSubtract[v,p14]
d4=Colorize[c4,ColorRules->{j4->Yellow,k4->Blue}]
c34=HistogramTransform[c4]
c24=ImageSubtract[d4,c4]
g4=Image[p14]
ColorSeparate[g4,"Red"]
z4=ImageSubtract[ImageSubtract[#1]& @@ ColorSeparate[g4,"Blue"]]
v14=ImageSubtract[g4,z4]
ImageSubtract[p14,v14]
b4=ImageFilter[MedianDeviation[Flatten[#]]&,c24,2]// ImageAdjust
z14=ImageSubtract[ImageSubtract[#1]& @@ ColorSeparate[c24,"Blue"]]
b14=Colorize[z14,ColorRules->{z14->Pink,ComplexInfinity->White}]
ImageMultiply[c24,c34]
img4=HistogramTransform[%]
DominantColors[%]
ImageMultiply[v4,c4,d4,c24,g4,z4,c34]
HistogramTransform[%]
p214=ImageData[img4]
p134=Image[v54]
DominantColors[%]
HistogramTransform==v54
u14=ImageDimensions[p21]
t14=Reverse[u14]
o124=ImageLevels[p214]
pr4=Flatten [p214]
ImageHistogram[p134]
ImageHistogram [img4]
n14=pr4*(pr4-Power[pr4, (pr4)^-1])
l14=pr4-pr4*Power[pr4, (pr4)^-1]
k14=n14/l14
j14=(n14/l14)^pr4

bg14=Binarize[o124, f14]

Module f14= PixelValue=j14->Yellow=j14->Yellow=j14->Blue=k14->Blue->{img4,j14}
ReplacePixelValue[img,{j14,img4}]
f14=Module{u14}->Yellow==20>j14>1->j1->{j14;img4}==Yellow=Yellow=j14
Column[ColorConvert[j14,v5]&/@{"Green"}]
ImageApply[UnitStep[f14]&,bg14]
SetAlphaChannel[f14,img4]
ImageHistogram [img4]
ImageTransformation[img4,{f14}&,DataRange->{{All}}]
ImageHistogram [v5]
Do [NestWhile .1 * 10^-7<j14<20 [HistogramTransform[img4]]]
v5=HistogramTransform[img]
d14=ImageSubtract[z4,c34]
ImageSubtract[d4,d14]
c14=HistogramTransform[%]
c34=ImageSubtract[c4,c14]
c44=ImageMultiply[d14,c34]

g4=ImageSubtract[v4,c4,d4,c24,g4,z4,c34]
g14=ImageAdd[v4,c4,d4,c24,g4,z4,c34]
ImageMultiply[g4,g14]
HistogramTransform[%]
ImageSubtract[a4,b4]
ImageMultiply[a4,b4]
HistogramTransform[%]
F24=ImageAdd[c14,c44]
DominantColors[%]
F4=ImageAdd[c14,v4]
DominantColors[%]
F34=HistogramTransform[F24]
ImageAdd[F14,F4]
ImageSubtract[F34,F24]
f3=ImageSubtract[F34,F24]
ct2=ImageCompose[F34,F24]
fg=ImageCompose[ct1,ct2]
DominantColors[%]
af=Image[p12]
bf=Image[fg]
ImageCompose[af,bf]

cf=ImageMultiply[bf,af]

df=ImageSubtract [af,bf]

ff=ImageAdd[cf,df]
ImageCompose[af,df]

p1=Image[ct2]
p2=ImageData[%]
p5=Image[ct1]
p4=ImageData[%]
Image[v]
HistogramTransform==v
u=ImageDimensions[p1]
t=Reverse[u]
o1=ImageLevels[p1]
p=Flatten [p2]
p3=Flatten[p4]
ImageHistogram[p1]
ImageHistogram [v]
n=p*(p-Power[p, (p)^-1])
y=p-p*Power[p, (p)^-1]
x=n/y
g=(n/y)^p
n1=p3*(p3-Power[p3, (p3)^-1])
y1=p3-p3*Power[p3, (p3)^-1]
x1=n1/y1
G=(n1/y1)^p3

bg=Binarize[o1, f]

Module f= PixelValue=g->Yellow=g->Yellow=g->Blue=x->Blue->{p1,g}
ReplacePixelValue[p1,{g,p1}]
f=Module{u}->Yellow==20>g>1->g->{g;p1}==Yellow=Yellow=g
Column[ColorConvert[g,v1]&/@{"Green"}]
ImageApply[UnitStep[f]&,bg]
SetAlphaChannel[f,p1]
ImageHistogram [p1]
ImageTransformation[p1,{f}&,DataRange->{{All}}]
ImageHistogram [v1]
v1=HistogramTransform [p1]
Do [NestWhile .1 * 10^-7<g<20 [HistogramTransform[p1]]]
v=HistogramTransform[p1]
Module f2= PixelValue=G->Yellow=G->Yellow=G->Blue=x1->Blue->{p1,G}
ReplacePixelValue[p1,{G,p1}]
f2=Module{u}->Yellow==20>G>1->G->{G;p1}==Yellow=Yellow=G
Column[ColorConvert[G,v]&/@{"Green"}]
ImageApply[UnitStep[f2]&,bg]
SetAlphaChannel[f2,p1]
ImageHistogram [p1]
ImageTransformation[p1,{f2}&,DataRange->{{All}}]
ImageHistogram [v]
Do [NestWhile .1 * 10^-7<G<20 [HistogramTransform[p1]]]
v=HistogramTransform[p1]
Do [NestWhile .1 * 10^-7<G<200 [ImageSubtract[p1,v]]]
ImageHistogram[%]
![Microscopic imagee][1]
Attachment

Attachment

Answer
2 months ago

Group Abstract Group Abstract