In[]:=
SetDirectory[NotebookDirectory[]]
Out[]=
/home/bibekannda/Desktop/S4_SRSPM/Active_files/k-phi
In[]:=
allres=Import["allresultList.csv"]
Out[]=
{{0.5,0.485236,1.},{0.5,0.469965,2.},{0.5,0.454254,3.},{0.5,0.438763,4.},{0.5,0.422723,5.},{0.5,0.406573,6.},{0.5,0.390314,7.},{0.5,0.373944,8.},{0.5,0.357684,9.},{0.5,0.340985,10.},{0.5,0.324066,11.},{0.5,0.307147,12.},{0.5,0.290118,13.},{0.5,0.27287,14.},
⋯3652⋯
,{5.,0.000098,67.},{5.,0.000098,68.},{5.,0.000098,69.},{5.,0.000098,70.},{5.,0.000098,71.},{5.,0.000098,72.},{5.,0.000098,73.},{5.,0.000098,74.},{5.,0.000098,75.},{5.,0.000098,76.},{5.,0.000098,77.},{5.,0.000098,78.},{5.,0.000098,79.},{5.,0.000098,80.}}
Full expression not available
(
original memory size:
88.5 kB)
In[]:=
phir4z0={#[[3]],#[[2]],#[[1]]}&/@allres;
In[]:=
contz0=ListContourPlot[phir4z0,GridLines->Automatic,ContourLabels->True,ColorFunction->"Rainbow",ImageSize->Large]
Out[]=
In[]:=
Show[contz0,Graphics[{FaceForm[None],EdgeForm[{Thick,Red}],Rectangle[{40,0},{80,0.8}]}]]
Out[]=