Import vstupních dat

(*Import*)
SetDirectory[NotebookDirectory[]];
fotoImport =Import["foto.xlsx"];
foto=fotoImport[[1]];(*Zbavim se závorky*)
skotoImport=Import["skoto.xlsx"];
skoto=skotoImport[[1]] ;(*Zbavim se závorky*)
LED1Import=Import["LED1.xlsx"];
LED1=LED1Import[[1]]; (*Zbavim se závorky*)
SodikImport=Import["sodik.xlsx"];
Sodik=SodikImport[[1]];

Základní výpočty - iterace

(*Iterace*)
Ls=0.8;
Lp=0.7;
mn0=0.5;
mn1=mn0;
For[i=0,i<50,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.767+0.3334*Log[10,Lmesn],mn1=mn}](*iterace pro výpočet mn*)

(*Výpočet S/P ratio*)
Kmf=683;(*lm/W*)
Kms=1699;
intf=0;
ints=0;
ϕVf=Table[{foto[[l,1]],foto[[l,2]]*LED1[[l,2]]},{l,Length[LED1]}];(*V*LED1*)
ϕVs=Table[{skoto[[l,1]],skoto[[l,2]]*LED1[[l,2]]},{l,Length[LED1]}];(*V'*LED1*)
For[i=1,i<(Length[LED1]-1),i++,{int1=Kmf*(((ϕVf[[i,2]]+ϕVf[[i+1,2]]))/2),intf=int+int1}];
For[i=1,i<(Length[LED1]-1),i++,{ints1=Kms*(((ϕVs[[i,2]]+ϕVs[[i+1,2]]))/2),ints=ints+ints1}];
SPratio=(ints/int);

(*For[i=0,i<50,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.767+0.3334*Log[10,Lmesn],mn1=mn}](*iterace pro výpočet mn*)*)
int
ints

(*Lmesn1;
For[i=0,i<50,i++,{mn2=0.767+0.3334*Log[10,Lmesn1],Lmesn2=((mn2*Lp+(1-mn2)*Ls*(683/1699))/(mn2+(1-mn2)*(683/1699))),Lmesn1=Lmesn2}]*)


(*Výpočet V'' hodnot*)
m=mn;
mezo=Table[{foto[[l,1]],m*foto[[l,2]]+(1-m)*skoto[[l,2]]},{l,Length[foto]}];
mezo1=Table[mezo[[l,2]],{l,Length[mezo]}];(*pro zjištění nejvyšší hodnoty - potřeba pouze druhý sloupec*)
mezo2=Table[{foto[[l,1]],mezo[[l,2]]/Max[mezo1]},{l,Length[mezo1]}];(*podělené nejvyšší hodnotou - max=1*)

(*Grafy*)

fotograf=ListLinePlot[{foto,skoto},
PlotStyle->{{Red, Thick},{RGBColor[0,0.39,0.66],Thick}},
PlotRange->{{380,750},{0,1.001}},
GridLines->{Table[390+10i,{i,0,42}],Table[0.1*i,{i,0,10}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style[λ [nm],FontSize->15,Bold],Style["Poměrná spektrální citlivost",FontSize->15,Bold]},
RotateLabel->True,
ImageSize->500,
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Fotopické vidění","Skotopické vidění"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.82,0.85}]]
spekt=Import["spektrum1.png"];
(*ImageCompose[fotograf,spekt]*)

Export["c1.PNG",fotograf,"PNG",ImageResolution->200]

fotografAbs=ListLinePlot[{fotoAbs,skotoAbs},
PlotStyle->{{Red, Thick},{RGBColor[0,0.39,0.66],Thick}},
PlotRange->{{380,780},{0,1700}},
GridLines->{Table[390+10i,{i,0,42}],Table[100*i,{i,0,17}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style[λ [nm],FontSize->15,Bold],Style["Světelný účinnek záření (lm/W)",FontSize->15,Bold]},
RotateLabel->True,
ImageSize->500,
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Fotopické vidění","Skotopické vidění"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.82,0.85}]]
spekt=Import["spektrum1.png"];
Export["K.PNG",fotografAbs,"PNG",ImageResolution->200]

Grafy pro dané jasy

PoleJas={0.005,0.03,0.1,0.3,1,2,5}; (*požadované jasy*)
mproJas=Table[0.767+0.3334*Log[10,PoleJas[[i]]],{i,Length[PoleJas]}];(*m pro jasy*)
mproJasGraf=Table[Table[{foto[[l,1]],mproJas[[i]]*foto[[l,2]]+(1-mproJas[[i]])*skoto[[l,2]]},{l,Length[foto]}],{i,Length[mproJas]}];

mproJasMax=Table[Max[Table[mproJasGraf[[i,l,2]],{l,Length[mproJasGraf[[1]]]}]],{i,Length[mproJasGraf]}];
mproJasGraf2=Table[Table[{foto[[l,1]],mproJasGraf[[i,l,2]]/mproJasMax[[i]]},{l,Length[mproJasGraf[[1]]]}],{i,Length[mproJasGraf]}];

GrafJas=ListLinePlot[mproJasGraf2,
PlotRange->{{380,780},{0,1.001}},
PlotStyle->Table[{ColorData["Rainbow",0.15+i/Length[PoleJas]],Thick},{i,0,12}],
GridLines->{Table[390+10i,{i,0,42}],Table[0.1*i,{i,0,10}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style[λ [nm],FontSize->15,Bold],Style["Poměrná spektrální citlivost",FontSize->15,Bold]},
RotateLabel->True,
ImageSize->500,
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Skotopické vidění","Adapt. jas 0.03 cd/(m^2)","Adapt. jas 0.1 cd/(m^2)","Adapt. jas 0.3 cd/(m^2)","Adapt. jas 1 cd/(m^2)","Adapt. jas 2 cd/(m^2)","Fotopické vidění"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.80,0.65}]]


fotoAbs=Table[{foto[[i,1]],foto[[i,2]]*683},{i,Length[foto]}]; (*relativní hodnoty vynásobeny 683*)
skotoAbs=Table[{skoto[[i,1]],skoto[[i,2]]*1699},{i,Length[skoto]}]; (*relativní hodnoty vynásobeny 1699*)
mproJasGrafAbs=Table[Table[{foto[[l,1]],mproJas[[i]]*fotoAbs[[l,2]]+(1-mproJas[[i]])*skotoAbs[[l,2]]},{l,Length[foto]}],{i,Length[mproJas]}];
GrafAbs=ListLinePlot[mproJasGrafAbs,
PlotRange->{{380,780},{0,1700}},
PlotStyle->Table[{ColorData["Rainbow",0.15+i/Length[PoleJas]],Thick},{i,0,12}],
GridLines->{Table[390+10i,{i,0,42}],Table[100*i,{i,0,17}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style[λ [nm],FontSize->12,Bold],Style["Světelný účinek záření lm/W",FontSize->12,Bold]},
RotateLabel->True,
ImageSize->500,
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Skotopické vidění","Adapt. jas 0.03 cd/(m^2)","Adapt. jas 0.1 cd/(m^2)","Adapt. jas 0.3 cd/(m^2)","Adapt. jas 1 cd/(m^2)","Adapt. jas 2 cd/(m^2)","Fotopické vidění"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana",FontSize->10}],{0.81,0.71}]]

Export["mezo.PNG",GrafJas,"PNG",ImageResolution->200];
Export["mezoAbs.PNG",GrafAbs,"PNG",ImageResolution->200];

Grafy pro zadaná m

(*Graf podle m od 0 do 1*)
mezopole={1,2,3,4,5,6,7,8,9,10,11};
mezograf={1,2,3,4,5,6,7,8,9,10,11};
For[m=0,m<1.1,m=m+0.1,
{mezo=Table[{foto[[l,1]],m*foto[[l,2]]+(1-m)*skoto[[l,2]]},{l,Length[foto]}];
mezo1=Table[mezo[[l,2]],{l,Length[mezo]}];(*pro zjištění nejvyšší hodnoty - potřeba pouze druhý sloupec*)
mezopole[[(m+0.1)*10]]=mezo2=Table[{foto[[l,1]],mezo[[l,2]]/Max[mezo1]},{l,Length[mezo1]}]}(*podělené nejvyšší hodnotou - max=1*)]
For[m=0,m<1.1,m=m+0.1,{mezograf[[10*(m+0.1)]]=ListLinePlot[mezopole[[10*(m+0.1)]],PlotStyle->{Hue[m/1.2,1,1],Thick},AxesLabel->{λ [nm], lm/W}]}]
Show[mezograf];

ListLinePlot[Table[mezopole[[i]],{i,1,11}],PlotRange->{{380,780},{0,1.001}},
PlotStyle->Table[{ColorData["Rainbow",0.15+i/11],Thick},{i,0,12}],
GridLines->{Table[390+10i,{i,0,42}],Table[0.1*i,{i,0,10}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style[λ [nm],FontSize->15,Bold],Style["Poměrná spektrální citlivost",FontSize->15,Bold]},
RotateLabel->True,
ImageSize->500,
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Fotopické vidění","Adapt. jas 0.3 cd/(m^2)","Adapt. jas 0.3 cd/(m^2)","Adapt. jas 0.3 cd/(m^2)","Adapt. jas 0.3 cd/(m^2)","Skotopické vidění"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.84,0.65}]]

Spektrum sodíkové výbojky

MaxSodik=Max[Table[Sodik[[i,2]],{i,Length[Sodik]}]];
Sodikpom=Table[{Sodik[[i,1]],Sodik[[i,2]]/MaxSodik},{i,Length[Sodik]}];
SodikGraf=ListLinePlot[{Sodikpom,skoto,mproJasGraf2[[3]],foto},
PlotStyle->{{Orange, Thick,Opacity[0.6]},{RGBColor[0,0.39,0.66],Thick},{Purple,Thick},{Red,Thick}},
PlotRange->{{380,750},{0,1.001}},
GridLines->{Table[390+10i,{i,0,42}],Table[0.1*i,{i,0,10}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style[λ [nm],FontSize->15,Bold],Style["Spektrum výbojky/citlivosti oka",FontSize->15,Bold]},
RotateLabel->True,
ImageSize->500,Filling->{1->Axis},FillingStyle->Directive[Opacity[0.5],Orange],
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Sodíková výbojka","Skotopická křivka", "Adapt. jas 0,1 cd/(m^2)", "Fotopická křivka"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.8,0.80}]]
Export["Sodikova vybojka.PNG",SodikGraf,"PNG",ImageResolution->200];

Spektrum LED

MaxLED1=Max[Table[LED1[[i,2]],{i,Length[LED1]}]];
LED1pom=Table[{LED1[[i,1]],LED1[[i,2]]/MaxLED1},{i,Length[LED1]}];
LED1Graf=ListLinePlot[{LED1pom,skoto,mproJasGraf2[[3]],foto},
PlotStyle->{{Orange, Thick,Opacity[0.6]},{RGBColor[0,0.39,0.66],Thick},{Purple,Thick},{Red,Thick}},
PlotRange->{{380,750},{0,1.001}},
GridLines->{Table[390+10i,{i,0,42}],Table[0.1*i,{i,0,10}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style[λ [nm],FontSize->15,Bold],Style["Spektrum výbojky/citlivosti oka",FontSize->15,Bold]},
RotateLabel->True,
ImageSize->500,Filling->{1->Axis},FillingStyle->Directive[Opacity[0.5],Orange],
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"LED","Skotopická křivka", "Adapt. jas 0,1 cd/(m^2)", "Fotopická křivka"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.8,0.80}]]
Export["LED1.PNG",LED1Graf,"PNG",ImageResolution->200];

Spektrum sodíkové výbojky zhodnocené podle mezopické citlivosti

Sodik;

(*Graf podle m od 0 do 1 v absolutní hodnotě*)
mezopole={1,2,3,4,5,6,7,8,9,10,11};
mezograf={1,2,3,4,5,6,7,8,9,10,11};
fotoAbs=Table[{foto[[i,1]],foto[[i,2]]*683},{i,Length[foto]}]; (*relativní hodnoty vynásobeny 683*)
skotoAbs=Table[{skoto[[i,1]],skoto[[i,2]]*1699},{i,Length[skoto]}]; (*relativní hodnoty vynásobeny 1699*)
For[m=0,m<1.1,m=m+0.1,
{mezopole[[10*(m+0.1)]]=Table[{fotoAbs[[l,1]],m*fotoAbs[[l,2]]+(1-m)*skotoAbs[[l,2]]},{l,Length[fotoAbs]}]}]
For[m=0,m<1.1,m=m+0.1,{mezograf[[10*(m+0.1)]]=ListLinePlot[mezopole[[10*(m+0.1)]],PlotStyle->{Hue[m/1.2,1,1],Thick},PlotLegends->{m}],AxesLabel->{λ [nm],lm/W}}]
Show[mezograf]

Graf mezopické jasy v závislosti na skotopickém jasu

(*MES2*)
MES2=Array[0&,{500,2}];
For[j=1,j<=500,j++,
{SP=0.65;
Lp=0.01*j;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
For[i=0,i<50,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.767+0.3334*Log[10,Lmesn],mn1=mn}],MES2[[j,1]]=Lp,MES2[[j,2]]=100*((Lmesn-Lp)/Lp)}]
(*MES1*)
MES1=Array[0&,{300,2}];
For[j=1,j≤300,j++,
{SP=0.65;
Lp=0.01*j;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
For[i=0,i<30,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.807+0.404*Log[10,Lmesn],mn1=mn}],MES1[[j,1]]=Lp,MES1[[j,2]]=100*((Lmesn-Lp)/Lp)}]
MES1[[1,2]]=100*((0.0065-0.01)/0.01);
MES1[[2,2]]=-28.6;
(*USP*)
USP=Array[0&,{60,2}];
For[j=1,j≤60,j++,
{SP=0.65;
Lp=0.01*j;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
Lmesn=0.834Lp-0.335Ls-0.2+(Sqrt[0.696(Lp^2)-0.333Lp-0.56Lp*Ls+0.113(Ls^2)+0.537Ls+0.04]),USP[[j,1]]=Lp,USP[[j,2]]=100*((Lmesn-Lp)/Lp)}]

(*MOVE*)
fotoMove=Table[foto[[i,2]],{i,Length[foto]}];
skotoMove=Table[skoto[[i,2]],{i,Length[foto]}];
MOVE=Array[0&,{1000,2}];
For[j=1,j≤1000,j++,
{SP=0.65;
Lp=0.01*j;
Ls=Lp*SP;
x0=0.5;
x1=x0;
For[i=0,i<50,i++,{xn=1.49+0.282Log[10,(((1/(Max[x1*fotoMove+(1-x1)*skotoMove])))*(x1*(Lp/1699)+(1-x1)*(Ls/683)))],x1=xn}],Lmesn=((x1*Lp+(1-x1)*Ls*(683/1699))/(x1+(1-x1)*(683/1699))),MOVE[[j,1]]=Lp,MOVE[[j,2]]=100*((Lmesn-Lp)/Lp)}]
(*MES2 2,25*)
MES22=Array[0&,{500,2}];
For[j=1,j<=500,j++,
{SP=2.25;
Lp=0.01*j;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
For[i=0,i<50,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.767+0.3334*Log[10,Lmesn],mn1=mn}],MES22[[j,1]]=Lp,MES22[[j,2]]=100*((Lmesn-Lp)/Lp)}]
(*MES1*)
MES12=Array[0&,{300,2}];
For[j=1,j≤300,j++,
{SP=2.25;
Lp=0.01*j;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
For[i=0,i<30,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.807+0.404*Log[10,Lmesn],mn1=mn}],MES12[[j,1]]=Lp,MES12[[j,2]]=100*((Lmesn-Lp)/Lp)}]

(*USP*)
USP2=Array[0&,{60,2}];
For[j=1,j≤60,j++,
{SP=2.25;
Lp=0.01*j;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
Lmesn=0.834Lp-0.335Ls-0.2+(Sqrt[0.696(Lp^2)-0.333Lp-0.56Lp*Ls+0.113(Ls^2)+0.537Ls+0.04]),USP2[[j,1]]=Lp,USP2[[j,2]]=100*((Lmesn-Lp)/Lp)}]

(*MOVE*)

MOVE2=Array[0&,{1000,2}];
For[j=1,j≤1000,j++,
{SP=2.25;
Lp=0.01*j;
Ls=Lp*SP;
x0=0.5;
x1=x0;
For[i=0,i<50,i++,{xn=1.49+0.282Log[10,(((1/(1-0.65x1+0.65x1^2)))*(x1*(Lp/1699)+(1-x1)*(Ls/683)))],x1=xn}],Lmesn=((x1*Lp+(1-x1)*Ls*(683/1699))/(x1+(1-x1)*(683/1699))),MOVE2[[j,1]]=Lp,MOVE2[[j,2]]=100*((Lmesn-Lp)/Lp)}]

porovnani=ListLogLinearPlot[{MES22,MES12,USP2,MOVE2,MES2,MES1,USP,MOVE},
Joined->True,
PlotStyle->{{RGBColor[0,0.39,0.66], Thick},{Orange,Thick},{Purple,Thick},{Red,Thick},{RGBColor[0,0.39,0.66], Thick,Dashed},{Orange,Thick,Dashed},{Purple,Thick,Dashed},{Red,Thick,Dashed}},
PlotRange->{{0.01,10},{-50,120}},
GridLines->{Automatic,Table[-40+10i,{i,0,16}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style["Skotopický jas (Subscript[L, p])(cd/(m^2))",FontSize->15,Bold],Style["Rozdíl mezopického jasu\n oproti skotopickému (%)",FontSize->15,Bold]},
RotateLabel->True,
ImageSize->500,(*Filling->{1->Axis},FillingStyle->Directive[Opacity[0.5],Orange],*)
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"MES2","MES1","USP","MOVE","MES22","MES12","USP2","MOVE2"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana",FontSize->10}],{0.90,0.68}]]
Export["porovnani.PNG",porovnani,"PNG",ImageResolution->200];

fotoMove=Table[foto[[i,2]],{i,Length[foto]}];
skotoMove=Table[skoto[[i,2]],{i,Length[foto]}];
Max[x1*fotoMove+(1-x1)*skotoMove]

Zkoumání iterace

MES2=Array[0&,{500,2}];
For[j=1,j<=500,j++,
{Lmesn1=0;
SP=0.3;
Lp=0.01*j;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
For[i=1,i<60,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.767+0.3334*Log[10,Lmesn],mn1=mn,If[Abs[(Lmesn1-Lmesn)/Lmesn]<0.001,{k=i,i=80},i=i],Lmesn1=Lmesn}],MES2[[j,1]]=Lp,MES2[[j,2]]=k}]
MES2;

Lmesn1=0;
SP=0.25;
Lp=0.0236;
Ls=Lp*SP;
mn0=0.5;
mn1=mn0;
For[i=0,i<50,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.767+0.3334*Log[10,Lmesn],mn1=mn,If[Abs[(Lmesn1-Lmesn)/Lmesn]≤0.001,{k=i,i=55},i=i],Lmesn1=Lmesn,Print[Lmesn]}]

Lp=0.98;
SP1=1.65;
Ls=Lp*SP1;
mn0=0.5;
mn1=mn0;
For[i=0,i<50,i++,{Lmesn=((mn1*Lp+(1-mn1)*Ls*(683/1699))/(mn1+(1-mn1)*(683/1699))),mn=0.767+0.3334*Log[10,Lmesn],mn1=mn}]
Lmesn(*iterace pro výpočet mn*)

FotoStred=Sort@{{60,0.19},{45,0.21},{30,0.27},{25,0.29},{20,0.33},{15,0.34},{10,0.34},{5,0.34},{2,0.41},{1,0.47}};
LedStred=Sort@{{60,0.221},{45,0.243},{30,0.30755},{25,0.3291},{20,0.3719},{15,0.3825},{10,0.3825},{5,0.3825},{2,0.4568},{1,0.520049}};
VybojStred=Sort@{{60,0.171},{45,0.19105},{30,0.2477},{25,0.27},{20,0.3052},{15,0.3148},{10,0.3148},{5,0.3148},{2,0.3824},{1,0.44055}};

LEDvsSodik1=ListLinePlot[{FotoStred,LedStred,VybojStred},
PlotStyle->{{Orange, Thick,Opacity[0.6]},{RGBColor[0,0.39,0.66],Thick},{Red,Thick}},
PlotRange->{{0,60},{0,0.6}},
GridLines->{Table[10i,{i,0,42}],Table[0.1*i,{i,0,10}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style["Zorný úhel (°)",FontSize->12,Bold],Style["Jas (cd/(m^2))",FontSize->12,Bold]},
RotateLabel->True,
ImageSize->500,Filling->{3->{2}},FillingStyle->Directive[Opacity[0.4],Orange],
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Fotopický jas","Mezopický jas, S/P = 1,65", "Mezopický jas, S/P = 0,65"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.74,0.82}]]
Export["Porovnání LED, sodík.PNG",LEDvsSodik1,"PNG",ImageResolution->200];

Úspory

(*vyšší*)
FotoStred=Sort@{{60,0.33},{45,0.41},{30,0.56},{25,0.63},{20,0.72},{15,0.79},{10,0.84},{5,0.89},{2,0.81},{1,0.70}};
LedStred=Sort@{{60,0.37},{45,0.45},{30,0.61},{25,0.68},{20,0.78},{15,0.85},{10,0.90},{5,0.95},{2,0.87},{1,0.76}};
VybojStred=Sort@{{60,0.31},{45,0.38},{30,0.53},{25,0.60},{20,0.68},{15,0.75},{10,0.80},{5,0.85},{2,0.77},{1,0.66}};

LEDvsSodik=ListLinePlot[{FotoStred,LedStred,VybojStred},
PlotStyle->{{Orange, Thick,Opacity[0.6]},{RGBColor[0,0.39,0.66],Thick},{Red,Thick}},
PlotRange->{{0,60},{0,1}},
GridLines->{Table[10i,{i,0,42}],Table[0.1*i,{i,0,10}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style["Zorný úhel (°)",FontSize->12,Bold],Style["Jas (cd/(m^2))",FontSize->12,Bold]},
RotateLabel->True,
ImageSize->500,Filling->{3->{2}},FillingStyle->Directive[Opacity[0.4],Orange],
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Fotopický jas","Mezopický jas, S/P = 1,65", "Mezopický jas, S/P = 0,65"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.74,0.82}]]
Export["Porovnání LED, sodík2.PNG",LEDvsSodik,"PNG",ImageResolution->200];

(*vyšší*)
FotoStred=Sort@{{60,0.71},{45,0.88},{30,1.09},{25,1.19},{20,1.30},{15,1.37},{10,1.52},{5,1.56},{2,1.93},{1,2.31}};
LedStred=Sort@{{60,0.77},{45,0.94},{30,1.16},{25,1.26},{20,1.37},{15,1.44},{10,1.59},{5,1.63},{2,2.0},{1,2.38}};
VybojStred=Sort@{{60,0.67},{45,0.84},{30,1.05},{25,1.14},{20,1.25},{15,1.33},{10,1.48},{5,1.51},{2,1.88},{1,2.27}};

LEDvsSodik=ListLinePlot[{FotoStred,LedStred,VybojStred},
PlotStyle->{{Orange, Thick,Opacity[0.6]},{RGBColor[0,0.39,0.66],Thick},{Red,Thick}},
PlotRange->{{0,60},{0,2.5}},
GridLines->{Table[10i,{i,0,42}],Table[0.1*i,{i,0,25}]},
GridLinesStyle->{Thickness[Tiny],LightGray},Frame->True,FrameLabel->{Style["Zorný úhel (°)",FontSize->12,Bold],Style["Jas (cd/(m^2))",FontSize->12,Bold]},
RotateLabel->True,
ImageSize->500,Filling->{3->{2}},FillingStyle->Directive[Opacity[0.4],Orange],
LabelStyle->Directive[FontFamily->"Helvetica",FontSize->12],
PlotLegends->Placed[LineLegend[{"Fotopický jas","Mezopický jas, S/P = 1,65", "Mezopický jas, S/P = 0,65"},LegendFunction->"Frame",LegendMargins->5,RoundingRadius->5,Background->White,FrameStyle->LightGray, LabelStyle->{FontFamily->"Verdana"}],{0.74,0.82}]]
Export["Porovnání LED, sodík3.PNG",LEDvsSodik,"PNG",ImageResolution->200];