समोच्च लाइनों के लिए समोच्च लेबल कैसे जोड़ें?

Sep 21 2020

मैं समोच्च लाइनों को समोच्च लेबल कैसे जोड़ सकता हूं? ContourLabels->Automaticजब इनपुट तीसरे रूप में दिया जाता है तो सामान्य काम नहीं करता है ContourPlot।

labelFontSize = 24;
ticksFontSize = 16;
lineThickness = 2;

contourPlotToF = ContourPlot[
tArrival - tDeparture == Table[Δt, {Δt, 0, 70, 7}],
{tDeparture, 30, 60}, {tArrival, 30, 60},
ImageSize -> Full,
FrameLabel -> {Row[{"Departure time/", Quantity[None, "Days"]}], 
Row[{"Arrival time/", Quantity[None, "Days"]}]},
FrameTicksStyle -> Directive[FontSize -> ticksFontSize],
LabelStyle -> {FontSize -> labelFontSize},
ContourLabels -> Automatic,
ContourStyle -> {Directive[
  ColorData[97, "ColorList"][[4]],
  AbsoluteThickness[lineThickness]]},
GridLines -> Automatic
]

संपादित करें:

@ मिचेल ई 2 सुझाव के अनुसार, मैंने बदल दिया है

tArrival - tDeparture == Table[Δt, {Δt, 0, 70, 7}],

सेवा

Evaluate[Thread[tArrival-tDeparture==Table[Δt,{Δt, 0, 70, 7}]]],

जो निम्नलिखित परिणाम उत्पन्न कर रहा है:

लेबल केवल तभी दिखाई दे रहा है जब मैं लाइन में होवर करता हूं, और सिर्फ कंट्रोवर्स की सूची दे रहा हूं। मैं "पारंपरिक" समोच्च भूखंडों के लिए उपयोग करता हूं

ContourLabels -> (Text[Style[#3, ticksFontSize], {#1, #2}] &),

लेबलों के लिए लाइनों के बगल में दिखाई देते हैं। हालाँकि, यह यहाँ काम नहीं करता है।

पुनश्च: "पारंपरिक" समोच्च भूखंडों से, मेरा मतलब पहले प्रकार से है ContourPlot, जिसमें रंग के बीच कोडित कोड होते हैं।

जवाब

1 BobHanlon Sep 21 2020 at 20:09

वैकल्पिक रूप से, पहले फ़ॉर्म का उपयोग करें

Clear["Global`*"]

labelFontSize = 24;
ticksFontSize = 16;
lineThickness = 2;

ContourPlot[tArrival - tDeparture,
 {tDeparture, 30, 60}, {tArrival, 30, 60},
 Contours -> Range[0, 70, 7],
 ImageSize -> Medium,
 FrameLabel -> {
   Row[{"Departure time/", Quantity[None, "Days"]}],
   Row[{"Arrival time/", Quantity[None, "Days"]}]}, 
 FrameTicksStyle -> Directive[FontSize -> ticksFontSize], 
 LabelStyle -> {FontSize -> labelFontSize},
 ContourLabels ->
  (Text[Framed[#3], {#1, #2}, Background -> White] &), 
 ContourStyle -> 
  Directive[ColorData[97, "ColorList"][[4]], AbsoluteThickness[lineThickness]],
 ContourShading -> None,
 GridLines -> Automatic]