Prediga el área coloreada de una imagen 

Entrene un predictor para predecir el área coloreada de una imagen.

In[1]:=

X p = Predict[{\!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AMDa/gTJAnPn/yUWj5o+aP2r+qPmj5o+aPzD1F1XAqPmj5lPFfNoBGrkc GQAALVzkLg== "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 40.2`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztls1qwkAQx6XtoY/RPkr7CPYJFNprwZaI+TJ4ysGLF0FPKkJAPAgieuvB m1BJ1FbEqPXbamMRUk2tJp02rQQtvWS95c9k2c0sv9nd2V321Hltvzqw2Ww3 x1DYHe4zl8vhuTiCxrnn9tJ5CJWTn++rvldpmqaX+5DFR8vnuLtcrjSbzfbE b7X6brfIsg/5fE2WZeT81WoVjfIk+Y5hkt9fLhTE+XyOkA/qdoc43mIYzetV MWwcCAg831QUBRV/vV7H4wJJKhDiN8owGOSr1fZyuTTPB/X7I4Jo6nzdaHqF Yb1wmG80erCGJvkwBY4TCGJhDAFGUR8eTycS4TudgRk+aDB4JsnGFl83yD5J ivV62wxfVdVEokQQ810+/IzFBD3jZs7vaDSmKHELTtNrlq1Mp696HzN8mEIy WcLxNyMfti5spE0fk/fPeDzxeusbOBy6bLYCcVHxQalUGcfl77QqoRC/WCyM XvP8yeSFYWrA9/keISNbXiT3czpdwbCnYlHcdSHhS5KUydwblx0t/x9ZfItv 8VE9lf/UnkZu1CcUMTMO "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 8.9`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt0stuAVEYB3Bpu+hjtI/SPoI+AUm7baI4LoMiIhEWbIiNBRYSicRCumEn SCRjptSthtYwbUcrLmVQ9DTaRlrEdTf/fHNyJjnzO+dMvmP+Jfdij8PhXB3C gcsDJwIBT3p2AF9OpcJz/j6cHH0/X/OdZjweT8blQ5JUPF5aZuUaPkFUdLok guTLZWrrfjr9oFanlcoPhaJvt2MMw2zLH41GKFpAkJxSOby+HsMC4CUczm7F Hw6H0WhOJiMm8m9pNGmarm3oDwaDUOhOInn8g8OSyzsuFwYXrO33er1AIAlA 9T/+85dIHC+u53e7Xa8XB4Ceh8NSqUYGw22j0VjVb7fbTicGwNsCfFJSadPn w1by4Xns9gT8cJ6JID24NQBlvT5js6HBYGZ5v1Z7tVgwmex9GoRtCbcTCimN 5t5sxjwePBYrUNRTq9WC3TUTn+lXq89GI44gzKQ9RCJaLi+ZTCmHAw2FsgRB 1uv1fr8/D1zsF4sVrTYhFsNbZ61W1O9PJZMlmqY7nc6S4GLf7b6JRPKVCtVs Nhfcem1/62F91md91mf9Df3dZUcnn84nLpMdDA== "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 11.`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztlL9OwkAcgIk6+Bj6KPoI+ASQ6GqC5q4NhDLAwMbGyEBCSghDSQgJITA1 Ji5Q/mgwClaDWAu1SPhfWn96Di46mLtJvrSX6/J9bS93+95T98mWy+U624XB 7cEHPp+HP9qBh0P+/Ni7DZO9r/tjzhTHccjIgo1/42fqH41G4/HYNE3DMHRd 1zTNtm2Kfkm6CIdb4fCtIHQCARWh+3RaWa/XtPyLxSKZVDjODIUccnGc2m4/ 0PID0+k0lVIwfiX+YNCKxZTJZELLD8xmM1GEhEESCA1LpSuKfpLIZOoYD0lC EG76fY2iH5jP59lsHSEd/IHAPJGoLZdLin7nc7klqYHxCyQwfqpW7+j6SSKX ayCkCYIdjTZgg9D1A/Bb8vkmxs88/waf88uO+/P5sFqtCgVI9P3+Trfbo+4n iWKxhXEvHldg6an7AcuyYCMg1JXlNgs/SVQq15FIbTAYsvADcNyVy01RvIQW Cz9JyHJdVR8Z+X9i4/8nfnYwevPvvAMqClWW "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 4.9`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aT9D8BryASub/x4FGzR81f9T8UfNpbT4Nyzeywaj5I8R82gEa uRwZAADhQvUX "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 13.6`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aP2o+5eZ//vz54sX7ixdfmDjxcmfnjfb2u0ASyAaKAMWBsmSb /+/fv+PHb3Z1XSstfVVX97eh4T8yAooAxYGyQDW/f/8m1fxfv34tWnS4sPA2 mrGYqKTkEVDl379/STL/yJEbZWXPCRoOQcXFD48evUmS+ZMnXyXScAgCqifJ fGA8kmQ+UP2gcj8w/IGhSqThwJgiNfyB6QGYKoBpg6DhwDQGVAlMbySZDwTA VE1k+gfmFDS9gyH/UgJGzR8h5tMO0MjlyAAAAbL5PQ== "], {{0, 32}, {32, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 15.6`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt1s1KAlEUAGCpFj1GPUo9gj2BQm2DamYYdVRGFHWTK6WIEnIhog8guAiE LCiuP9SIjpl/FeK/IpaOdmpCRC2iuVObDmcu4+Ybvefc46yqt5VbCwqFYncZ FqWKWtvZUdEbS/Bhnd7bVC/CzcrH9XYva4xGI3GVI77wC4Wiz3cmnx+J8HY7 6na7MvknJ4gki3d3RTn8drtttXJabTcQSMjh53IlgigZjSO7/abT6WD3g0GO ptvgE8RjOl3A6w8GA6cTAQ6p0/W83hhev16vsywv+pBQCCgHRv/2NkcQ5bFP EE8cl8Po+/0J2JaxzzAvHk8Ul9/r9fb342NcTLM52Ww2sfjlclmjuZ/yYbvi 8SwW//KSp6jalM8wfbc7OhwOpftuN9LrB1M+JMumoK8k+nBUbTZuFockycr1 dUain88/wEyb68OPOjpCgiBI8UOhJE235vrvyVerVSm+y4UMhuFnPklWofpS fJa9gObR64VPtkg4OEAwnX7s12q18/P04SEMNx4KOttIDJOpVCo/9sWAIsKD rq4yx8fIZErB4YL+F32KqofDKYn+OOBANRqNWCx7ehq1WJIw6HS6Z6cz2u/3 sfiT0Wq1YIrCf4HDgb7fRX/4/vPv/6YvX8j0zSfjFQCw+Io= "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 14.7`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aP9LM//v376dPn169evXgwZMbNx5dufIQSALZQBGgOFCWbPO/ f/++Z8/ZmTMvtbXdqax8UlLyorT0dVnZWyAJZANFgOJA2RMnbkFsIdX8U6fO pqUdbWj4jx9lZBwHqiTDfKCrgG4DurC19XZl5WMM9z8GigNlgX4E+pQM8+G2 0Cj8SQWj5o+aP2r+qPkDbj7tAI1cjgwAQdVl/A== "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 3.8`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJy1lllPGlEUx0nbh36M9qO0H8F+Ak3a1yYWGGYBF+KDK2IM6psxvKghcUs0 MT5gGx+qCcxMWQIMq8BIWcpa9umptyUEGBhgOPnPzdxk7i/33HPmnPt25vPU pxcKheLLaximprF3s7PT+IdXMHmPKz/OvISXN/+ev+8TNUEQ0CiLNZvNSCR+ dPQNTeXlp1Ipi4UhSd/u7nd5+fl8/ubGtbjoIoiCRpO1Wj1y8cvl8sODb3WV xbD0/LwAwrBINBofn1+v1z2esMlkV6v5ubkmgoNWVpyFQmEcPgQxGuUPDuwa TVinq7fIIJju79taX47AT6fTJyesVuujqHI7+f/hZO7uvKPxwWur1a3XO3E8 301GwvEwzz8Ny69UKjYbt7bGqNUpMTLS+rqjVCpJ50MQvd7Izg4EMd4exJ7S amtms719eX9+PP5kNtMaTQgW9icjgXf395wUfiaTOTtjdTovSf6WQkYiiGAi kejPLxaLt7fupSUIYk46GclgYOF3E+NXq1Wa9hsMEMTksGQQRVUOD5mOc2jx w2F+b8+GYbGBQRQ//CRNB8T4sdjP7W37wPTrmzz+ZDIpxocR8vb62klRnMRs 6ZDRSMMJ9+ELz4UlEIhubdGtYihRkGYWCyt0Wc/8hBS6vHSQpL+jdvWRSpVw OkMS+cgRjnvc3ISf65cU/sICB3VPOh8ZFLSLix8EERjoCORGrVYblo8cgSay scFA1xODE0Tx/NzRc7nE+gnt9fSUxfGgTtfo5iuVPOxhHD5Yo9Fwu0PQZ7vr hl7vhXo1Jh9ZLpeDGwg0kXZHTCYblHFZ+MgRhyO4vMyiLgYXkqsrl9jHI98f stns8TEEPaJSxfz+R9n5wnNrY5iA0fi1dRuRly/FWvzJ2YR23m5/AHUePME= "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 34.7`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5tPZ/AZCgBrm/8eNRs0fNX/Ym0/D/EUSGDV/1PxR80fNJ2g+7QCN XI4MAO0fFeQ= "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 10.8`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aP2o+Jeb/+vXr7du3N248OnTo9vbtNzZuvAokgWygCFAcKEuJ +ffvP5s27Wxt7YPS0teVlZ+qq79VV38HkkA2UAQoPnPmxRs37pNtfnX18rq6 vw0N/3EhoGxFxSKyzb979wnQhXjcD/Td7duPyDb/Pzj837x5Q6PwpxCMmj9q /qj5o+YTNJ92gEYuRwYA09dlAw== "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 4.`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aPyzNbyACUGz+f7xo1PxR80fNHzWfdubTsHyjChg1n0jzaQdo 5HJkAACDp9dT "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 16.1`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aT5L5Z85cnzXrVF/f1c7O20By/vwLV68++PfvH1XMP3jwen7+ 5fr6fw0N/yGoru5vQcEVoDhVzJ806TzcZGQEFKeK+du2nc7Pv4TmfqAItdwP DGdgaAPDHB7+wLgAxggu9YMw/YyaP2r+qPmj5o+aj2w+7QCNXI4MANGIbsk= "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 3.3`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5g858//9+/fhw4fr1x9u3359yZKLM2eenT79PJAEsoEiQHGgLFAN eea/e/d+yZIzzc23S0tfV1V9rav709DwH4KAbKAIUBwou3Llpdev35BqPlBL dfX+6urvcDNxIaCa1tZzQMeQZP6JEzcrKj4SNByCgCqB6kkyH+geoKuIdD/Q pwSDCDP8gVpWrboMCf/q6m9o4Q8UgYT/0qVnCQYOVvP/w9LPjRuPsKYfoDgl 6Ye6YNT8UfNHzR81f9ibTztAI5cjAwCokDtA "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 8.3`, \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aT2fzG4gAFJv/Hy8aNX/U/FHzKTGfhvmXimDU/FHzh4T5tAM0 cjkyAADIhP4F "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\) -> 12.6`}]

Out[1]=

Prediga las áreas coloreadas de las nuevas imágenes.

In[2]:=

X p[{\!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJztll1L21AYxzM70I+xfZTtI+gnUNhuBZc2SWOagihSEfVGUQqi3gjilSAo AQXpjWBsGhv7ntatnbVJ39b31z0zWkqxabQJ7MI//4STm1/y/M9zzsnnqenx 7yMIgvwYg9v4JPZlZmaSmPgID18J9NuUCQafnq5/Y0PVbreVuxF657/zO6rX 6wzD53I5I/itVuvs7NZiSTidXKlU0p3vdoet1qjd3sbx7OGhp1ar6ciPRhM0 7aPpFvDBGHYPtUBFuvBlOe1w8BRVV+CKCUKEiobnF4vFzU2OJMvdcDDUQtN+ UYwPw4eQDw48OJ7rgSu22RqLi7wkyW/jN5tNhhEwLPkiXDHUtb7OFQqFN/BZ NkQQMRX480Tk9/e5arX6Kn4kEod4B8Kf2+nh5MQL9WrkQ6QQLMSrkf+4KO4u L4Na+BDmxsYLDTPQFBUMBO7U+RAjhNmvYdRtszXn573JZEqFf3UlzM35zOYE bAI9C0qLZ2era2tcPp/vx4cln81mY7H4xUVwb8+9uuqx20Mo+hsq0jgdVmth d5erVCrq/dOJK5PJiOKv8/PAzs71ygpP02EUvYeehDT6vcJikY+O+EajMZDf I/iqdDodCv1kGP/29vXy8g1FRVA0SRB/el6H43GXyw9pDHN+lctlWZahZ05P fU4nu7TkJUnRbH6AiGB3IsmwIER1PB/h0JEkSRBix8e3W1uswyEsLLAm06he /G5BMrDxplIpBPlgBL+j/+r/YRi+cTLoy7v1F1vcqWs= "], {{0, 32}, {32, 0}}, { 0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True], Selectable->False], BaseStyle->"ImageGraphics", ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\), \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJzt1L0KglAUB3Cphh6jHqUewZ5AodbAFBUXfQH1cUJXJ2vMAosGt3IoHdTN /mFJo8a9QeDhejme4cflfpwxv2QXPYZhVkNMLCdPBIFTZwP8TFVxzveRjF7f M6caZVlWM43o/M7/jZ9lWRCc0jSl4YO17a0kXQ1jnec5cd91D4qS6HopyzfH 2ZP1i6IwzR3waiBHhaAfx7GmRbWPHBWCfhhGonipfZwCKgR93z8ryr32kaNC 0Pe8Y3W4bz9B5Y/WT3v/ad8f2vcfgTeLl1ttPt5yQ7y5j56DzoOdt6xNqxbX vH+CRf9EF22Ot/K/i87vfCI+vaC08s94ABJQTpI= "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\), \!\(\* GraphicsBox[ TagBox[RasterBox[CompressedData[" 1:eJxTTMoPSmNiYGAo5gASQYnljkVFiZXBLECOU2VJahIzkKEAxSA2TcH///8h JC3AqPmj5o+aP2r+YDO/gWhAgfn/iUCj5tPOfBrGL7XAqPmj5o+aTwfzaQdo 5HJkAAB4djCu "], {{0, 32}, {32, 0}}, {0, 255}, ColorFunction->RGBColor], BoxForm`ImageTag[ "Byte", ColorSpace -> "RGB", Interleaving -> True, Magnification -> Automatic], Selectable->False], BaseStyle->"ImageGraphics", ImageSize->{32, 32}, ImageSizeRaw->{32, 32}, PlotRange->{{0, 32}, {0, 32}}]\)}]

Out[2]=