Good evening, everyone in this bar, I have to come here to ask for some help for some possible questions that I think there will be in my mathematica code. One of these questions is why there exists one gap in the curve of my function. In addition, although I personally this may be a drawing skill, I still want to get some professional advices here. Lookling forward to your reply~
Code is as follows:
(*----One function for acquiring lmbda0 after lmbda1 and lmbda2 are set----*)
myLMBDA[lmbda1_, lmbda2_] := Module[{lmbda0},
lmbda0 = -Log[(Exp[5*lmbda1 + lmbda2] - 1)/(lmbda1 + lmbda2/5 +
0.0001) + (Exp[10*lmbda1] - Exp[5*lmbda1 + lmbda2])/(lmbda1 -
lmbda2/5 + 0.0001)]
]
(*----Parameter set----*)
lmbda1=-67.2621;
lmbda2=752.0790;
(*----Plot Code where I want to consult----*)
Plot[If[0 <= x <=
5, (Exp[(lmbda1 + lmbda2/5)*
x + (myLMBDA[lmbda1, lmbda2] + lmbda2*0)] -
Exp[(lmbda1 + lmbda2/5)*0 + (myLMBDA[lmbda1, lmbda2] +
lmbda2*0)])/(lmbda1 + lmbda2/5 +
0.0001), (Exp[(lmbda1 + lmbda2/5)*5 + (myLMBDA[lmbda1, lmbda2] +
lmbda2*0)] -
Exp[(lmbda1 + lmbda2/5)*0 + (myLMBDA[lmbda1, lmbda2] +
lmbda2*0)])/(lmbda1 + lmbda2/5 +
0.0001) + (Exp[(lmbda1 - lmbda2/5)*
x + (myLMBDA[lmbda1, lmbda2] + lmbda2*2)] -
Exp[(lmbda1 - lmbda2/5)*5 + (myLMBDA[lmbda1, lmbda2] +
lmbda2*2)])/(lmbda1 - lmbda2/5 + 0.0001)], {x, 0, 10},
AxesStyle -> Arrowheads[0.03], PlotRange -> Full]

MaxRecursion -> 12