function Lplot(x,y,s1,s2,s3)
hold on
[V]=axis;
plot([x x],[V(3) y],'g:')
plot([V(1) x],[y y],'g:')
yt=V(3)+.8*(y-V(3));
ss=['  ' s1 num2str(y) s2 num2str(x) s3];
text(V(1),yt,ss)
hold off
