p<-1-lambda1*exp(-K1*lambda1)
p2<-1+ ((lambda1/(lambda2*2 -lambda1))*exp(-K2.nove*lambda2*2))-((lambda2*2/(lambda2*2 -lambda1))*exp(-K2.nove*lambda1))
plot(p~K1,type="l")
plot(p2~K2.nove)
plot(p2~K2.nove,type="l")

K22<-sort(K2.nove)
p22<-1+ ((lambda1/(lambda2*2 -lambda1))*exp(-K22*lambda2*2))-((lambda2*2/(lambda2*2 -lambda1))*exp(-K22*lambda1))
plot(p22~K22,type="l")