In[]:=
SetDirectory["C:\\Users\\tsuyo\\Desktop\\MachineLearningWithWolframLanguage\\西垣\\教師データ"];
In[]:=
si=Import["T-①-1 1538.jpg"],Import["T-①-2 1541.jpg"],Import["T-①-3 1542.jpg"],Import["T-①-4 1543.jpg"],Import["T-①-5 1609.jpg"],Import["T-①-6 1622.jpg"],Import["T-①-7 1785.jpg"],Import["T-①-8 2070.jpg"],Import["T-①-9 2071.jpg"],Import["T-①-10 2072.jpg"],Import["T-①-11 2073.jpg"],Import["T-①-12 2074.jpg"],Import["T-①-13 2075.jpg"],Import["T-①-14 2076.jpg"],Import["T-①-15 2078.jpg"],Import["T-①-16 2079.jpg"],Import["T-①-17 2083.jpg"],Import["T-①-18 2319.jpg"],Import["T-①-19 2948.jpg"],Import["T-①-20 2949.jpg"],Import["T-①-21 3000.jpg"],Import["T-①-22 3758.jpg"],Import["T-①-23 3761.jpg"],Import["T-①-24 5941.jpg"],Import["T-①-25 9556.jpg"];
In[]:=
nsp=Length[si];
In[]:=
SetDirectory["C:\\Users\\tsuyo\\Desktop\\MachineLearningWithWolframLanguage\\西垣\\判定用データ"];
In[]:=
pri=Import["T-②-1　1538.jpg"],Import["T-②-2　1539.jpg"],Import["T-②-3　1541.jpg"],Import["T-②-4　1542.jpg"],Import["T-②-5　1543.jpg"]
Out[]=

,
,
,
,

In[]:=
npr=Length[pri];
In[]:=
cpt={{{0.544`,0.23`},{0.467`,0.295`},{0.49`,0.415`},{0.43`,0.45`},{0.52`,0.455`},{0.405`,0.47`}},{{0.317`,0.2`},{0.216`,0.41`},{0.216`,0.45`},{0.285`,0.457`},{0.51`,0.51`},{0.227`,0.56`}},{{0.49`,0.17`},{0.458`,0.266`},{0.437`,0.28`},{0.432`,0.33`},{0.445`,0.39`},{0.397`,0.42`}},{{0.488`,0.173`},{0.423`,0.291`},{0.397`,0.45`},{0.648`,0.486`},{0.397`,0.45`},{0.41`,0.49`}},{{0.488`,0.254`},{0.458`,0.374`},{0.51`,0.477`},{0.656`,0.54`},{0.53`,0.66`},{0.53`,0.66`}},{{0.51`,0.22`},{0.416`,0.326`},{0.41`,0.41`},{0.408`,0.46`},{0.48`,0.468`},{0.68`,0.47`}},{{0.512`,0.271`},{0.685`,0.557`},{0.461`,0.594`},{0.477`,0.626`},{0.413`,0.628`},{0.51`,0.668`}},{{0.52`,0.198`},{0.453`,0.289`},{0.496`,0.431`},{0.395`,0.44`},{0.71`,0.477`},{0.432`,0.491`}},{{0.52`,0.22`},{0.459`,0.324`},{0.467`,0.426`},{0.408`,0.465`},{0.728`,0.518`},{0.445`,0.52`}},{{0.485`,0.191`},{0.437`,0.264`},{0.402`,0.303`},{0.437`,0.412`},{0.387`,0.435`},{0.472`,0.447`}},{{0.472`,0.2`},{0.387`,0.418`},{0.373`,0.471`},{0.445`,0.482`},{0.664`,0.523`},{0.416`,0.568`}},{{0.48`,0.215`},{0.419`,0.32`},{0.44`,0.435`},{0.469`,0.473`},{0.37`,0.488`},{0.461`,0.52`}},{{0.53`,0.197`},{0.456`,0.315`},{0.475`,0.42`},{0.507`,0.461`},{0.405`,0.47`},{0.723`,0.509`}},{{0.5`,0.185`},{0.427`,0.304`},{0.44`,0.409`},{0.469`,0.45`},{0.373`,0.457`},{0.46`,0.49`}},{{0.528`,0.2`},{0.456`,0.304`},{0.469`,0.4`},{0.413`,0.435`},{0.507`,0.44`},{0.395`,0.445`}},{{0.483`,0.2`},{0.421`,0.308`},{0.432`,0.409`},{0.389`,0.437`},{0.467`,0.44`},{0.36`,0.457`}},{{0.458`,0.209`},{0.427`,0.318`},{0.437`,0.415`},{0.387`,0.45`},{0.469`,0.456`},{0.363`,0.465`}},{{0.496`,0.227`},{0.4`,0.427`},{0.395`,0.475`},{0.467`,0.488`},{0.68`,0.536`},{0.44`,0.57`}},{{0.493`,0.224`},{0.4`,0.43`},{0.392`,0.475`},{0.467`,0.487`},{0.677`,0.534`},{0.44`,0.567`}},{{0.52`,0.215`},{0.427`,0.409`},{0.416`,0.459`},{0.493`,0.47`},{0.707`,0.515`},{0.432`,0.565`}},{{0.53`,0.176`},{0.415`,0.394`},{0.433`,0.439`},{0.492`,0.45`},{0.731`,0.489`},{0.42`,0.516`}},{{0.472`,0.229`},{0.376`,0.42`},{0.379`,0.462`},{0.453`,0.47`},{0.672`,0.503`},{0.389`,0.553`}},{{0.528`,0.267`},{0.539`,0.459`},{0.472`,0.488`},{0.709`,0.556`},{0.709`,0.556`},{0.709`,0.556`}},{{0.52`,0.206`},{0.456`,0.406`},{0.496`,0.464`},{0.475`,0.487`},{0.723`,0.487`},{0.723`,0.487`}},{{0.507`,0.275`},{0.56`,0.408`},{0.559`,0.432`},{0.528`,0.459`},{0.525`,0.48`},{0.677`,0.541`}}};
In[]:=
preas={{{0.52`,0.165`},{0.512`,0.282`},{0.467`,0.406`},{0.488`,0.421`},{0.747`,0.476`},{0.405`,0.47`}},{{0.488`,0.2`},{0.491`,0.25`},{0.491`,0.406`},{0.68`,0.541`},{0.48`,0.588`},{0.227`,0.56`}},{{0.499`,0.286`},{0.413`,0.477`},{0.475`,0.494`},{0.347`,0.497`},{0.461`,0.526`},{0.397`,0.42`}},{{0.483`,0.176`},{0.432`,0.412`},{0.451`,0.427`},{0.685`,0.468`},{0.501`,0.481`},{0.41`,0.49`}},{{0.488`,0.251`},{0.435`,0.448`},{0.52`,0.479`},{0.672`,0.51`},{0.48`,0.518`},{0.53`,0.66`}}}
Out[]=
{{{0.52,0.165},{0.512,0.282},{0.467,0.406},{0.488,0.421},{0.747,0.476},{0.405,0.47}},{{0.488,0.2},{0.491,0.25},{0.491,0.406},{0.68,0.541},{0.48,0.588},{0.227,0.56}},{{0.499,0.286},{0.413,0.477},{0.475,0.494},{0.347,0.497},{0.461,0.526},{0.397,0.42}},{{0.483,0.176},{0.432,0.412},{0.451,0.427},{0.685,0.468},{0.501,0.481},{0.41,0.49}},{{0.488,0.251},{0.435,0.448},{0.52,0.479},{0.672,0.51},{0.48,0.518},{0.53,0.66}}}
In[]:=
dataset=Table[si[[i]]->cpt[[i]],{i,1,nsp}];
In[]:=
net=NetChain[{LinearLayer[10],LinearLayer[20],LinearLayer[{6,2}]},"Input"->"Image"]
Out[]=
NetChain
Inputport:
image
Outputport:
matrix(size: 6×2)

In[]:=
trained=NetTrain[net,dataset]
Out[]=
NetChain
Inputport:
image
Outputport:
matrix(size: 6×2)
Data not saved. Save now

In[]:=
sol={trained[pri[[1]]],trained[pri[[2]]],trained[pri[[3]]],trained[pri[[4]]],trained[pri[[5]]]}
Out[]=
{{{0.41198,0.197815},{0.451128,0.308622},{0.409782,0.438698},{0.453686,0.500037},{0.406003,0.450612},{0.497409,0.491681}},{{0.611182,0.270891},{0.412995,0.313834},{0.45311,0.452428},{0.502663,0.423092},{0.536543,0.478399},{0.557732,0.56753}},{{0.587139,0.309477},{0.443126,0.403014},{0.450897,0.488162},{0.556642,0.515202},{0.616474,0.472094},{0.533468,0.562638}},{{0.515349,0.315884},{0.476027,0.350462},{0.467483,0.510193},{0.575226,0.56548},{0.468346,0.444767},{0.555976,0.557812}},{{0.431963,0.258514},{0.540905,0.331411},{0.423537,0.459019},{0.490388,0.510274},{0.46603,0.426528},{0.543023,0.497814}}}
In[]:=
Table[ListPlot[{sol[[i]],preas[[i]]},AspectRatio->1,PlotRange->{{0,1},{0,1}},PlotStylePointSize[Large]],{i,1,5}]
Out[]=

,
,
,
,
