発言者: 石原 守
発言日: 2005 08/05 20:18
発言元: ntchba129071.chba.nt.adsl.ppp.infoweb.ne.jp
どなたからもレスがないので、
yaziriをemathPh.styから抜き出して適当に再定義すると
できるようです。副作用がいっぱいです。
\documentclass{jarticle}
\usepackage{emathFx,emathPh}
\makeatletter
\def\yaziri{\@ifnextchar[{\@yaziri}{\@yaziri[\empty]}}%
\def\@yaziri[#1]#2{{\thinlines
\ifdim\Arr@wHeadSize pt>\z@
\ifx r#1\Mulvec{-1}{#2}\@houkou\else\edef\@houkou{#2}\fi
\@ifundefined{xunitlength}{}{\MulS\@houkou\@houkou
\xunitlength=\unitlength\yunitlength=\unitlength
}%
\Argvec\@houkou\houkou@kaku
\Add\houkou@kaku{180}\houkou@kaku
\Add\houkou@kaku\ArrowHeadAngle\kaku@s
\Sub\houkou@kaku\ArrowHeadAngle\kaku@e
\Add\kaku@s\kaku@e\kaku@m\Div\kaku@m2\kaku@m
\Mul\Arr@wHeadSize{1.4}\Arr@wHeadSizeX%%%%ここの数値を変えてみる
\Rdef(\Arr@wHeadSizeX,\kaku@s)\@P
\Rdef(\Arr@wHeadSizeX,\kaku@e)\@Q
\Rdef(\Arr@wHeadSize,\kaku@m)\@R
\DegCos\ArrowHeadAngle\yaziri@c\Mul\Arr@wHeadSize\yaziri@c\yaziri@c
\DegSin\ArrowHeadAngle\yaziri@s\Mul\Arr@wHeadSize\yaziri@s\yaziri@s
\if f\ArrowHeadType
\Nuritubusi[\Nurizen]{(0,0)\@P\@R\@Q(0,0)}%
\else
\ifthenelse{\equal\kugirisi{:}}%
{%
\Put{(0,0)}{\Drawline{\@P(0,0)\@Q}}%
}{%
\Put{(0,0)}{\rotatebox{\houkou@kaku}{\Drawline{(\yaziri@c,\yaziri@s)%
(0,0)(\yaziri@c,-\yaziri@s)}}}%
}%
\fi
\fi
}}
\makeatother
\begin{document}
{\Huge
$\bekutoru{AB}$
\bekutorukata{fill}%
$\bekutoru{AB}$
}
\begin{zahyou}[ul=5mm](-5,5)(-4,4)
\def\Ft{4*cos(T)}
\def\Gt{3*sin(T)}
\def\dFt{(-4)*sin(T)}
\def\dGt{3*cos(T)}
\BGurafu\Ft\Gt{0}{2*$pi}
{\changeArrowHeadSize{2}
\For\t{0}{6.28}{.2618}\Do{%
\BTen\Ft\Gt\t\P
\BTen\dFt\dGt\t\tvec
\Yaziri\P\tvec
}}
\end{zahyou}
\end{document}
▼関連発言
│
└◆3468:ベクトルの矢印について [ヤッシー] 08/04 17:37
├◆3469:ベクトルの矢印について(追加) [ヤッシー] 08/04 20:04
└◆3470:Re:ベクトルの矢印について [石原 守] 08/05 20:18
└◆3471:Re[2]:ベクトルの矢印について [ヤッシー] 08/05 20:49
└◆3472:Re[3]:ベクトルの矢印について [石原 守] 08/06 06:04
└◆3473:Re[4]:ベクトルの矢印について [田中徹] 08/06 20:18
└◆3474:Re[5]:ベクトルの矢印について [石原 守] 08/06 20:27
└◆3476:Re[6]:ベクトルの矢印について [ヤッシー] 08/07 23:50<-last