|
申し訳ありません。 結局作れていません。 ユーザ定義関数例を以下に示しますので、ご参考にして下さい。 もし、質問があれば、どしどし聞いて下さい。 平均を求める関数 0⇒mY;0⇒mZ;[f(mX)=mZ+mX⇒mZ;mY+1⇒mY;mZ/mY⇒mXp;] 変数Zに入力された数値を加算し、Yに何個入力したかを格納。入力の都度、Answerとして平均を表示します。 上記表示は、Palm上の画面表示と若干異なっているので、ご注意を。[は└→のボタン、]は←┘を押して下さい。2ndFを押すとテンキー部に表示されます。
以下は、以前に掲示板に投稿頂いたhonyaさんのものです。 掲示板が予告なしに閉鎖されて、コピーしておいた情報になります。
ユーザー関数定義 投稿者:honya ■余弦定理1(3辺) A:辺 B:辺 C:辺 〆D:A角 E:B角 F:C角 以下を打ち込んで下さい。A,B,Cの入力を聞かれ、それから計算した結果のD,E,Fを順に表示します。 f(mA;mB;mC)=arcCos((mB^2 +mC^2 -mA^2)/(2*mB*mC))⇒mD;arcSin(mB*sinmD/mA)⇒mE;180-mD-mE⇒mF;mDp;mEp;mFp; 改善例 f(mAmBmC)=arcCos((mB^2 +mC^2 -mA^2 )/2mBmC)⇒mDp;arcSin(mB*sinmD/mA)⇒mEp;180-mD-mE⇒mFp; ■余弦定理2(2辺とその狭角) B:辺 C:辺 D:A角 〆A:辺 E:B角 F:C角 f(mB;mC;mD)= √(mB^2 +mC^2 -2*mB*mC*cosmD)⇒mA;arcSin(mB*sinmD/mA)⇒mE;180-mD-mE⇒mF;mAp;mEp;mFp; ■正弦定理(1辺とその両端の角) A:辺 E:B角 F:C角 〆B:辺 C:辺 D:A角 f(mA;mE;mF)=180-mE-mF⇒mD; mA*sinmE/sinmD⇒mB;mA*sinmF/sinmD⇒mC; mBp;mCp;mDp; ■放物運動の高さ A:初速(m/s) B:角度 C:時間(s) 〆D:高さ(m) f(mA;mB;mC)=mA*mC*sinmB-9.8*mC^2 /2⇒mDp; ■ループ[]の使い方 累乗(無意味) X:数 Y:乗数 〆Z:解 f(mX;mY)=0⇒mI;1⇒mZ;if(mY !=0)then{[mI+1⇒mI;mX*mZ⇒mZ;if(mY>mI)then{]}};0⇒mI;mZp;
|