いつもお世話になっています。
emathwikiをみてやってみたのですが，今ひとつ納得できないので教えて下さい。

円錐の側面２点間の最短経路を図示したく，
http://emath.s40.xrea.com/temp/re4207a.lzh
を参考に以下のように作りましたが，どうも最短に見えません。

図示をしたいのは，母線の中点から一周して底面までの長さです。
よろしくお願いします。

\documentclass{jarticle}
\usepackage{emathP}
\usepackage[debug]{emathPs}
\begin{document}
 \def\Lval{3}
 \def\rval{1}
 \def\kval{.5}
 \calcval{2*sqrt(2)}\hval
 \calcval{atan2(sin(2*$pi*\rval/\Lval),(1/\kval)-cos(2*$pi*\rval/\Lval))}\aval
 \begin{psZahyou*}[ul=12mm,Ex={(-1,0)},Ey={(0,-.25)}]
  (-\rval,\rval)(-\rval,\rval)(0,\hval)\scriptsize
  \iiitenretu*{A(\rval,0,0);V(0,0,\hval);B(-\rval,0,0)}
  \iiiTyuuten\V\A\M\iiiPut\M[w]{M}\iiiKuromaru\M
  \iiiBGurafu{\rval*cos(T)}{\rval*sin(T)}{0}{0}{$pi}
  \iiiBGurafu[dash={.4mm,.8mm}]{\rval*cos(T)}{\rval*sin(T)}{0}{$pi}{2*$pi}
  \iiiDrawline{\A\V\B}
  \def\Xt{\rval*sin(\aval)*cos(T)/sin(\aval+T*\rval/\Lval)}
  \def\Yt{\rval*sin(\aval)*sin(T)/sin(\aval+T*\rval/\Lval)}
  \def\Zt{\hval*(1-sin(\aval)/sin(\aval+T*\rval/\Lval))}
  \iiiBGurafu\Xt\Yt\Zt{0}{$pi}
  \iiiBGurafu[dash={.4mm,.8mm}]\Xt\Yt\Zt{$pi}{2*$pi}
 \end{psZahyou*}
\end{document}

▼関連発言
│
└◆7531:円錐の側面の最短距離について [tanak] 09/14 07:13
　└◆7534:Re:円錐の側面の最短距離について [tDB] 09/14 13:26
　　└◆7540:Re[2]:円錐の側面の最短距離について [tanak] 09/15 23:34
　　　└◆7541:Re[3]:円錐の側面の最短距離について [tanak] 09/15 23:48<-last