In[]:=
f_0[L_,α_,n_]=Cos[Pi*α*n/L]/(1-(2α*n/L)^2);
plt=Plot[f_0[10,1/2,n],{n,-100,100},PlotRangeFull,AxesLabel{"n,f_0"},PlotLabel"L=10,α=1/2"]
Out[]=
CloudExport[plt,"PNG",NotebookDirectory[]<>"cos_part.png"]
Out[]=
CloudObject[
https://www.wolframcloud.com/obj/motchy86920160426151600cptJ/wolframcloud/userfiles/b4f/b4fa50af-f9db
-4487-a188-3295029d70b1/workspace/Software_Defined_Radio(SDR)-From_0_to_1/cos_part.png
]
In[]:=
SystemOpen[CloudObject["https://www.wolframcloud.com/obj/motchy86920160426151600cptJ/wolframcloud/userfiles/b4f/b4fa50af-f9db-4487-a188-3295029d70b1/workspace/Software_Defined_Radio(SDR)-From_0_to_1/cos_part.png"]〚1〛]