R -> try to get 3D Plot with “persp”, but have a problem with outer in z

Question

I am R beginner and have some challenges in creating of 3D Plot Data:

P_seq=seq(0,300,100)
L_seq=seq(0,200,100)
function(P,L){
......................
........