f(x) = If[x > 0, 1 / sqrt(ℯ^(x))]
piirto1: PolyLine[(1.1495E0,4.9425E-1), (1.0965E0,5.0949E-1), (1.0083E0,5.1711E-1), (7.6132E-1,5.1711E-1), (5.4961E-1,5.1711E-1), (4.4376E-1,5.0187E-1), (3.5555E-1,4.8663E-1), (2.6733E-1,4.6378E-1), (1.7912E-1,4.2568E-1), (1.0855E-1,3.9520E-1), (5.5625E-2,3.6472E-1), (-1.4945E-2,3.1901E-1), (-5.0230E-2,2.8853E-1), (-1.0316E-1,2.2757E-1), (-1.3844E-1,1.8186E-1), (-1.7373E-1,1.5138E-1), (-2.0901E-1,8.2802E-2), (-2.6194E-1,-3.9110E-2), (-2.7958E-1,-1.1530E-1), (-2.7958E-1,-1.6102E-1), (-2.9722E-1,-2.0674E-1), (-3.1487E-1,-2.3722E-1), (-3.1487E-1,-4.2008E-1), (-3.1487E-1,-5.0390E-1), (-2.7958E-1,-6.0295E-1), (-2.4430E-1,-6.9439E-1), (-2.4430E-1,-7.3248E-1), (-2.2665E-1,-7.7058E-1), (-1.7373E-1,-8.3154E-1), (-1.0316E-1,-9.0392E-1), (-6.7872E-2,-9.5345E-1), (2.6975E-3,-9.9154E-1), (7.3267E-2,-1.0373E0), (1.5266E-1,-1.0868E0), (2.4969E-1,-1.1287E0), (3.5555E-1,-1.1630E0), (4.7904E-1,-1.1820E0), (5.7608E-1,-1.2011E0), (8.8482E-1,-1.2049E0), (1.0965E0,-1.2049E0), (1.2553E0,-1.1973E0), (1.3788E0,-1.1820E0), (1.5376E0,-1.1744E0), (1.6082E0,-1.1592E0), (1.7140E0,-1.1363E0), (1.8199E0,-1.1211E0), (1.8904E0,-1.0982E0), (2.0139E0,-1.0601E0), (2.0845E0,-1.0296E0), (2.1551E0,-1.0144E0), (2.2256E0,-9.7631E-1), (2.2962E0,-9.4583E-1), (2.4197E0,-8.7725E-1), (2.5432E0,-8.2392E-1), (2.5785E0,-7.9344E-1), (2.6314E0,-7.4772E-1), (2.6667E0,-7.0200E-1), (2.7020E0,-6.4867E-1), (2.7373E0,-6.1057E-1), (2.7373E0,-5.4961E-1), (2.7549E0,-5.1152E-1), (2.7902E0,-4.7342E-1), (2.7902E0,-3.9723E-1), (2.7902E0,-3.4389E-1), (2.7196E0,-3.8199E-1), (2.6402E0,-4.3151E-1), (2.5256E0,-4.8866E-1), (2.4197E0,-5.3057E-1), (2.3403E0,-5.6866E-1), (2.3491E0,-5.4961E-1), (2.4109E0,-5.1152E-1), (2.4903E0,-4.6580E-1), (2.6138E0,-3.9723E-1), (2.7020E0,-3.5913E-1), (2.7902E0,-3.1722E-1), (2.8608E0,-2.9817E-1), (2.8961E0,-3.3627E-1), (2.9402E0,-4.0104E-1), (2.9490E0,-4.5818E-1), (2.9754E0,-5.0009E-1), (2.9843E0,-5.4200E-1), (3.0019E0,-5.7247E-1), (NaN,NaN), true]
m = 3.5 (slider from 0 to 1000, step 0.5)
a = Surface(r, (cos(s) * f(r)), (sin(s) * f(r)), r, 0, m, s, 0, (2 * pi))