Hi, Is there any command I can use to plot a function (minDiff) in two variables z, x . I don't want 3D plots and I tried contour plots, but it doesn't give me a result. this is my syntax:
z = {0.336`, 0.3365`, 0.337`, 0.3375`, 0.338`, 0.3385`, 0.339`,
0.3395`, 0.34`, 0.3405`, 0.341`, 0.3415`, 0.342`, 0.3425`, 0.343`,
0.3435`, 0.34400000000000003`, 0.34450000000000003`,
0.34500000000000003`, 0.34550000000000003`, 0.34600000000000003`,
0.34650000000000003`, 0.34700000000000003`, 0.34750000000000003`,
0.34800000000000003`, 0.34850000000000003`, 0.34900000000000003`,
0.34950000000000003`, 0.35000000000000003`, 0.35050000000000003`,
0.35100000000000003`, 0.35150000000000003`, 0.35200000000000004`};
x = {0.439`, 0.4395`, 0.44`, 0.4405`, 0.441`, 0.4415`, 0.442`,
0.4425`, 0.443`, 0.4435`, 0.444`, 0.4445`, 0.445`, 0.4455`, 0.446`,
0.4465, 0.447`, 0.4475, 0.448`, 0.4485, 0.449`, 0.4495, 0.45`,
0.4505, 0.451`, 0.4515, 0.452`, 0.4525, 0.453`, 0.4535, 0.454`,
0.4545, 0.455`};
minDiff = {0.00003801029774402991`, 0.00003166395441034695`,
0.00002824280188019947`, 0.000024959958712714654,
0.000022787269822019383`, 0.000019436483137210108`,
0.00001693371175948988, 0.000015088165217656512`,
0.000012260361064817496`, 0.000010559861086240865`,
8.76936167283543`*^-6, 6.751339890899566`*^-6,
5.873151744268928`*^-6, 4.1299202056503785`*^-6,
2.9436141706752585`*^-6, 2.6963256370489514`*^-6,
1.204783793086779`*^-6, 8.73309714394511`*^-7,
6.580914927107429`*^-7, 2.9797119948788726`*^-8,
5.763762151984972`*^-7, 3.834617172196265`*^-7,
6.411511518542553`*^-7, 1.9380608650917353`*^-6,
1.908754472834736`*^-6, 3.074073348904814`*^-6,
4.3815787238334555`*^-6, 5.26905301873764`*^-6,
7.3638110225485615`*^-6, 8.673162659005944`*^-6,
0.000015202058022669781, 0.000013293830765242055};
tab11 = Table[{z[[i]], x[[i]], minDiff[[i]]}, {i, 1, Length[z]}];
ListContourPlot[tab11, FrameLabel -> {"\!\(\*
StyleBox[SubscriptBox[\"\[Kappa]\", \"z\"],\nFontSize->24]\)",
"\!\(\*
StyleBox[SubscriptBox[\"\[Kappa]\", \"x\"],\nFontSize->24]\)"},
ContourStyle ->
Directive[AbsoluteThickness[3], Dashing[{.05, .05}], Black],
BaseStyle -> {FontWeight -> Bold, FontSize -> 14},
ContourShading -> False, Contours -> 2]
Thanks.