<< Graphics`ParametricPlot3D`

Directory[]

SetDirectory["Insert Full Path "]

data1 = 
      ReadList["uplmp_200510040120.dat", Real,  
        RecordLists -> True]

data2 = 
      ReadList["upro2_200510040120.dat", Real,  
        RecordLists -> True]

data3 = 
      ReadList["upto2_200510040120.dat", Real,  
        RecordLists -> True]

data4=Table[Cos[u ],{u,0.,π},{t,0.,2π}]

approx1 = 
      ListInterpolation[data1, {{0, π/2. }, {0, 2  π}}]

approx2 = 
      ListInterpolation[data2, {{0, π/2. }, {0, 2  π}}]

approx3 = 
      ListInterpolation[data3, {{0, π/2. }, {0, 2  π}}]

approx1[π/3, π]

lamp=SphericalPlot3D[approx1[π/2.  - theta,  phi],{theta, π/4, π/2},{phi, 0.1, 2  π},PlotPoints -> {37, 37},Boxed -> True,Axes -> False,ViewPoint -> {1. , 1. , 1. }]

Show[%, ViewPoint -> {0, -2, 0}]

road=SphericalPlot3D[approx2[π/2.  - theta, phi],{theta, 0, π/2},{phi, 0, 2  π},PlotPoints -> {74, 74},Boxed -> True,Axes -> False,ViewPoint -> {1. , 1. , 1. }]

Show[%, ViewPoint -> {0, 2, 0}]

Show[road, ViewPoint -> {2, 0, 0}]

({{"\!\(\*StyleBox[\"\\\"{1.3,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"-2.4,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"2}\\\"\", \"MR\"]\) ", "default view point "}, {"\!\(\*StyleBox[\"\\\"{0,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"-2,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"0}\\\"\", \"MR\"]\) ", "directly in front "}, {"\!\(\*StyleBox[\"\\\"{0,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"-2,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"2}\\\"\", \"MR\"]\) ", "in front and up "}, {"\!\(\*StyleBox[\"\\\"{0,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"-2,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"-2}\\\"\", \"MR\"]\) ", "in front and down "}, {"\!\(\*StyleBox[\"\\\"{-2,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"-2,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"0}\\\"\", \"MR\"]\) ", "left-hand corner "}, {"\!\(\*StyleBox[\"\\\"{2,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"-2,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"0}\\\"\", \"MR\"]\) ", "right-hand corner "}, {"\!\(\*StyleBox[\"\\\"{0,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"0,\\\"\", \"MR\"]\) \!\(\*StyleBox[\"\\\"2}\\\"\", \"MR\"]\) ", "directly above "}})

upwd=SphericalPlot3D[approx3[π/2.  - theta, phi],{theta, 0, π/2},{phi, 0, 2  π},PlotPoints -> {148, 148},Boxed -> True,Axes -> False,ViewPoint -> {1. , 1. , 1. }]

Show[%, ViewPoint -> {2, 0, 0}]

Show[%, ViewPoint -> {0, -2, 0}]

Clear[data, approx1, approx2, approx3]