@acer thanks sir for help. I was looking same thing. So, nice of you.

@tomleslie thanks for your response, from figure, we can observe that the the peak of lines is decreasing like black line is below the red line or we can say that on decreasing the value of M, the curve has decreasing trend, Now I am interested to find the that decrease in percentage means we can able like in this way figure  demonstrates 37% decrease as value of M increase.

Above example run for two value and got two answer so can say that the value is decreases by 87% on changing the value of M?

@tomleslie Thanks sir, it is working accordingly.

@tomleslie I want to fix horizontal axis means y axis like Y=0..1 ....in above graph now it is from y=-1..1

@Carl Love Sir the sheet you run is also working on my side and I am using Maple 22. The difference is only side bar in your picture and in my picture. In my code there is no bar on right side of the graph. Even the colours of contours line are not visible.

@mmcdara sir now the code is working but again the colors are same. Kindly help me to show differents colors in between two contours....as like I upload a picture for reference

Please have look on my work sheet

Countour_colouring_help.mw

@mmcdara Sir, I am trying this code on my problem but got error. Can you please have look on my worksheet.

Countour_colouring_help.mw

@mmcdara thanks sir its working accordingly...sir can you please explainthat how to choose these value or what is its meaning or purpose..... data[2..-1, [1, 2] and data[2..-1, [1, 4]

@mmcdara thanks sirfor your help

@mmcdara sir, I made change little bit in my expression but received error

Error.mw

@mmcdara thank you for response and help. Sir can you please add the detail specially this part

ymin, ymax := (min, max)(plottools:-getdata(p)[3][.., 2]):
eps   := 0.1:
Vline := plot([[0, ymin-eps], [0, ymax+eps]], color=black):
Hline := plot([[-5, 0], [5, 0]], color=black):

Left  := -4.8:
Right := -0.5:

Legend := plots:-display(
  plot(ymin, x=Left..Left+1, color=red)
  , plots:-textplot([Left+1, ymin, " N= 1, M= 1.3015"], align=right)
  , plottools:-rectangle([-4.9, ymin-eps], [-0.2, ymin+eps], color=white)
  #, plot([[Left-0.1, ymin-eps], [Right, ymin-eps], [Right, ymin+eps], [Left-0.1, ymin+eps], [Left-0.1, ymin-eps]], color=black)
):

Sir if, I want to change the position of vertical line then which values do i ned to change? Similary, if I want to add 4 or 5 legends then how to add or where to change?

sir if I want to show only legends then which portion do I need to mention in the code, please have look on my file

Help_graph_and_legends_place.mw

@mmcdara The shooting method is not necessary; if there is any other numeric method which we used to plot streamline by using the stream function, please help in this regard.

@mmcdara thanks sir, actually, I need to use this relation in another equation that is why i am inetersted purely in relation not specific solution.  Let me consider your suggestions.

Sir could please response to my this separate question which I asked fews days ago

https://www.mapleprimes.com/questions/236290-Whats-Wrong-With-My-Worksheet-Need-Assistance

@acer Actually, h=1+x^2, and I am interested purely in the relation between h and lambda by putting Eq=0. Once I get the relation, I will replace the value of h and will isolate x in terms of lambda and other parameters.
If it is not possible to develop a relation, then is it possible that we can suppose the value of T, something like T=0.2 or 0.5 and generate data points between x and lambda, then make a polynomial or relation between x and lambda?

@mmcdara sir it possible to solve my ODE numerically by using shooting method by considering stream function and then draw streem lines?  as reference or idea, I am uploading a picture. The information given in picture is not related to my problem, I am uploading just as a reference. Very thankful for help in this regrads?