(*FramePlottingParameters*)xgrid={0,2,4,6,8,10,12,14,16};ygrid={1,2,3,4,5,10};xticks={-20,-15,-10,-5,0,5,10,15};(*ShannonEquationParameters*)P0=10^((EbNo)/10);g1=x--1;(*ShannonEquation*)g1=g1/.{xP0};(*PlottingTables*)t1=Table[{g1},{EbNo,-2,18,0.25}];t2=Table[Solve[t1[[j]][[1]]0,η]//N//Quiet,{j,1,(18+2)/0.25}];t3=Table[η/.t2[[j]],{j,1,(18+2)/0.25}];t4=Flatten[t3];t5=Table[EbNo,{EbNo,-2,18,0.25}];t6=Table[{t5[[j]],t4[[j]]},{j,1,(18+2)/0.25}];(*Plots*)p1=ListLogPlott6,GridLines{xgrid,ygrid},JoinedTrue,FrameTrue,\PlotLegends{"Shannon_Limit"},PlotStyle{Blue},FrameLabel"dB","Spectrum Efficiency -- bit/sec/Hz",\GridLinesStyle{Directive[Thick,Black]},\FrameTicks{{Automatic,Automatic},{xticks,Automatic}},\FrameStyleDirective[Bold],LabelStyleDirective[Black,Bold,12](*List-LogPlotDataTable*)t6
η
2
η
Eb
N0
Out[]=
Out[]=
{{-2.,-0.275625},{-1.75,-0.105788},{-1.5,0.0607412},{-1.25,0.224149},{-1.,0.384608},{-0.75,0.542278},{-0.5,0.697308},{-0.25,0.849839},{0.,1.},{0.25,1.14791},{0.5,1.29369},{0.75,1.43744},{1.,1.57927},{1.25,1.71926},{1.5,1.8575},{1.75,1.99408},{2.,2.12907},{2.25,2.26254},{2.5,2.39458},{2.75,2.52523},{3.,2.65456},{3.25,2.78263},{3.5,2.90949},{3.75,3.0352},{4.,3.1598},{4.25,3.28334},{4.5,3.40586},{4.75,3.5274},{5.,3.64801},{5.25,3.76771},{5.5,3.88655},{5.75,4.00456},{6.,4.12176},{6.25,4.2382},{6.5,4.3539},{6.75,4.46888},{7.,4.58318},{7.25,4.69681},{7.5,4.8098},{7.75,4.92218},{8.,5.03396},{8.25,5.14516},{8.5,5.25581},{8.75,5.36593},{9.,5.47553},{9.25,5.58462},{9.5,5.69324},{9.75,5.80138},{10.,5.90907},{10.25,6.01632},{10.5,6.12315},{10.75,6.22956},{11.,6.33557},{11.25,6.4412},{11.5,6.54645},{11.75,6.65133},{12.,6.75587},{12.25,6.86005},{12.5,6.96391},{12.75,7.06744},{13.,7.17066},{13.25,7.27357},{13.5,7.37619},{13.75,7.47852},{14.,7.58056},{14.25,7.68233},{14.5,7.78384},{14.75,7.88509},{15.,7.98608},{15.25,8.08683},{15.5,8.18734},{15.75,8.28762},{16.,8.38767},{16.25,8.4875},{16.5,8.58711},{16.75,8.68651},{17.,8.78571},{17.25,8.88471},{17.5,8.98351},{17.75,9.08211}}