約 2,543,112 件
https://w.atwiki.jp/calculators-hp/pages/17.html
作成:wiki管理者 HP電卓を買うと、マニュアルに必ず載っていそうな円の面積を求めるプログラムです。 RPNモードのプログラムですので、[MODE][5]と入力してRPNモードにしてから、入力して下さい。 キー入力 表示 説明 [CLEAR][3][ ][ENTER] メモリをクリアします [PRGM] プログラム入力モードにします [GTO][.][.] PRGM TOP プログラムポインタをリセットします [x^2] 0001 x^2 半径を2乗 [π] 0002 π 円周率 [×] 0003 × 円の面積=πx^2 [PRGM] プログラム入力モードを抜けます [GTO][.][.] プログラムの開始位置を最初にセットします [5][R/S] 78.5398 xレジスタに5を入れ、プログラムを実行します。円の面積が表示されました ここで重要なのは、xレジスタに半径が入力されている前提で、プログラムが組まれていることです。 (xレジスタとは、マニュアル計算時に常に画面の2行目に入っている数値です)。 そして、プログラムの本体にはマニュアルで計算をするときと同じキーストロークがそのまま記録されているだけです。 これがHP35sにおけるプログラムの基本です。
https://w.atwiki.jp/wmmc/pages/20.html
練習用のプログラムでは、参考のプログラムをもとに、マイコンの機能を使う課題のプログラムを組みます。 これらの練習用プログラムは,サークル内で使っている練習用基板の回路を動かし,そのなかでプログラムを習得しようというものです. なお,開発環境にはBestTechnology製のGCC Developer Lite(以下GDL)を用いています. 参考プログラム① 『LED全点灯』 #include 3694.h int main(void){ IO.PCR5 = 0xff; //Port5をすべて出力に設定. while(1){ //無限ループさせる. IO.PDR5.BYTE = 0x00; //Port5すべての端子状態を【Low】に設定. } return 0; } ・プログラムの解説 マイコンのプログラムは,通常のC言語と違い,main()関数から始まらなければならないという規則はありません. ですが,今回のプログラムにおいて,main()関数でプログラムを始めているのは,GDL標準のスタートアップルーチン上に, main()関数を呼び出すことが定義されているためです. それにより,通常のC言語と同様にmain()関数から違和感なくプログラムを組むことが可能になっています. また,スタートアップルーチンとは,具体的な動作を始める前に,マイコンの準備などを行うために作られるモジュールです. GDLでは,標準の場合はリンカスクリプトでベクタテーブルを設定しており,起動後にスタートアップルーチンに記述された _start ルーチンを呼び出すように定義されているようです. 興味のある人は h8crt0.s (スタートアップルーチン)や, h8rom.x (リンカスクリプト)を見てみるといいかと思います. さて,プログラムの中身を見ていきます. まずは,第一行目です. #include 3694.h GDLが用意しているターゲットファイルの中にある,3694.hというヘッダファイルを読み込みます. このヘッダファイルには,マイコンを操作する上で欠かせない様々なレジスタ情報などが定義されています. 次に,main()関数の中身を見ていきます. 今回のプログラムの目的は,Port5につないであるLEDをすべて点灯させることです. 回路図をみれば分かりますように,Port5の各端子が5Vよりも低電位になれば電流が流れます.(実際はもっと低くないといけませんが) H8/3694では,Port5の各端子の状態をそれぞれ,5V付近である【High】と0V付近である【Low】状態に設定することが出来ます. また,Port5は汎用入出力ポートであり(ここではTMWの話はおいておきます),「入力」と「出力」の機能を選択することが出来ます. LEDを光らせたりするために,端子の状態をプログラム上で変更するには,出力状態にする必要があるので,まずはその機能の選択をします. Port5の入出力の機能を選択は,ポートコントロールレジスタ5(PCR5)を設定することで出来ます.そこで,次の一行を加えます. IO.PCR5 = 0xff; これで,Port5の端子はすべて出力ポートに設定されます. 次のPDR5とも併せて,それらのレジスタについての説明は後述します. さて,これでLEDを光らせるための下準備は終わりです. 後は,Port5の端子状態を【Low】に設定すれば,LEDを通ってH8に電流が流れ込み,LEDが点灯します. 端子状態は,ポートデータレジスタ5(PDR)を設定することで決定されます. IO.PDR5.BYTE = 0x00; これにより,Port5のすべての端子が【Low】状態になり,LEDが点灯するはずです. なお,今回はPDR5への書き込みを無限ループさせていますが,実際は一度設定してmain()関数を抜けてしまっても, スタートアップルーチン内の無限ループで拾ってもらえます. しかしながら,スタートアップルーチンも抜けて,本来プログラムが書き込まれていないはずの領域までプログラムコードとして読みに いきますと,バグなどの原因になりかねませんので,極力自分の分かるところで終わらせるようにしましょう. (スタートアップルーチンを書き換えない限り,あり得ないことだと思いますが.) ・レジスタの解説 ポートコントロールレジスタ5(PCR5) アドレス:H FFEB 汎用入出力ポートとして使用する端子の入出力の機能を各ビットごとに定義します. PCR5の0ビットから7ビットまで,それぞれがPort5の端子である,P50からP57に対応します. PCR5の設定(各ビット0か1)による端子の機能は次のようになります. 0: 入力ポート 1: 出力ポート なお,GDL標準の定義ファイル(3694.h)では,BYTE単位でのアクセスしか定義されていません. ポートデータレジスタ5(PDR5) アドレス:H FFDB汎用出力ポートの出力値を格納します.このレジスタを設定することで,Port8の端子の状態を決定することが出来ます. PCR5と同様に,各ビットごとにそれぞれの端子と対応関係にあります. PDR5の設定による端子状態の変化は次のとおりです. 0: Low状態出力 1: High状態出力 CMOSです. なお,入力設定のときに,PDR5を読み込みますと,端子の状態を知ることが出来ます. (CMOSの基準で【High】か【Low】かを) また,PCR5とは違い,各ビットが定義されており,BYTE単位のアクセスか,Bit単位のアクセスかを選択できます. ただし,Bitアクセスといっても結局BYTEアクセスを用いたBitアクセスなので,実行速度はあまり変わりません. 課題プログラムの①:『LEDを一個置きに点灯させよ』
https://w.atwiki.jp/ce00582/pages/1237.html
public class tax{ public static void main(String[] args) { double th1[]=new double[11]; double th2[]=new double[11]; double y1[][]=new double[11][11]; double y2[][]=new double[11][11]; double c[][]=new double[11][11]; double z[]=new double[11]; double u[][][][]=new double[11][3][3][3]; double w[][][][]=new double[10][3][3][3]; double rw[][][][]=new double[11][3][3][3]; double v[][][][][]=new double[11][3][3][3][11]; int goto1[][][][][]=new int[11][3][3][3][11]; int goto2[][][][][]=new int[11][3][3][3][11]; int gotoc[][][][][]=new int[11][3][3][3][11]; int gotoq[][][][][]=new int[11][3][3][3][11]; double endv[][][]=new double[3][3][3]; int endc[][][]=new int[3][3][3]; int end1[][][]=new int[3][3][3]; int end2[][][]=new int[3][3][3]; int endq[][][]=new int[3][3][3]; int opc[]=new int[11]; int op1[]=new int[11]; int op2[]=new int[11]; int opq[]=new int[11]; int s1,s2,j; double tk,tl,tr; double w1,w2,l1,l2; int i,t1,t2,t3,t4; double b1,b2,c1,we; double tr1,tr2,tr3; double maxwel,maxtk,maxtl,maxtr,maxu,maxv; int n1,n2,n3,q,qx; double u1,u2,v1; double h; double ww; int sig1,sig2,m1,m2,m3,mx1,mx2,mx3,nx1,nx2,nx3; int pp; int check; int sumep,ep; for (s1=1;s1 11;s1++){ th1[s1]=0.2*s1; } for (s2=1;s2 11;s2++){ th2[s2]=0.1*s2; } maxwel=-999; maxtk=0; maxtl=0; maxtr=0; for (n1=10;n1 40;n1++){ for (n2=5;n2 30;n2++){ tk=0.01*n1; tl=0.01*n2; tr=trs(tk,tl,th1,th2); we=wel(tk,tl,tr,th1,th2);; if (we maxwel)maxtk=tk; if (we maxwel)maxtl=tl; if (we maxwel)maxtr=tr; if (we maxwel)maxwel=we; } } tk=maxtk; tl=maxtl; tr=maxtr; for (s1=1;s1 11;s1++){ for (s2=1;s2 11;s2++){ w1=(1-tk)*th1[s1]; w2=(1-tl)*th2[s2]; l1=1-(w1+w2+tr)/(3*w1); l2=1-(w1+w2+tr)/(3*w2); i=0; if (l1 0)i=i+1; if (l2 0)i=i+1; if (i==2)l1=0; if (i==2)l2=(w2-tr)/(2*w2); i=0; if (l1 0)i=i+1; if (l2 0)i=i+1; if (i==2)l1=(w1-tr)/(2*w1); if (i==2)l2=0; y1[s1][s2]=th1[s1]*l1; y2[s1][s2]=th2[s2]*l2; c[s1][s2]=w1*l1+w2*l2+tr; } } t4=0; h=0.001; while(t4 100){ sumep=0; for (s2=1;s2 =10;s2++){ maxv=-999; t2=0; while(t2 100){ for (s1=1;s1 =10;s1++){ maxu=-999; for (sig1=-1;sig1 =1;sig1++){ for (sig2=-1;sig2 =1;sig2++){ m1=s1+sig1; m2=s2+sig2; if (m1 10)m1=10; if (m1 1)m1=1; if (m2 10)m2=10; if (m2 1)m2=1; l1=(y1[m1][m2])/th1[s1]; l2=(y2[m1][m2])/th2[s2]; c1=c[m1][m2]; u1=ux(c1,l1,l2); if (s2==m2)u1=-999; if (u1 maxu)maxu=u1; } } z[s1]=maxu; } for (s1=1;s1 =10;s1++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ l1=(y1[s1][s2]+n1*h)/th1[s1]; l2=(y2[s1][s2]+n2*h)/th2[s2]; c1=c[s1][s2]+n3*h; u1=ux(c1,l1,l2); if (z[s1] u1)u1=-999; u[s1][n1+1][n2+1][n3+1]=u1; } } } } for (s1=1;s1 =10;s1++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ check=0; for (sig1=-1;sig1 =1;sig1++){ for (sig2=-1;sig2 =1;sig2++){ m1=s1+sig1; m2=s2+sig2; if (m1 10)m1=10; if (m1 1)m1=1; if (m2 10)m2=10; if (m2 1)m2=1; l1=y1[m1][m2]/th1[m1]; l2=y2[m1][m2]/th2[m2]; c1=c[m1][m2]; u1=ux(c1,l1,l2); l1=(y1[s1][s2]+n1*h)/th1[m1]; l2=(y2[s1][s2]+n2*h)/th2[m2]; c1=c[s1][s2]+n3*h; u2=ux(c1,l1,l2); if (s2==m2)u2=-999; if (u2 u1)check=100; } } if(check 50)u[s1][n1+1][n2+1][n3+1]=-999; } } } } for (s1=1;s1 =9;s1++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ l1=(y1[s1][s2]+n1*h)/th1[s1+1]; l2=(y2[s1][s2]+n2*h)/th2[s2]; c1=c[s1][s2]+n3*h; u1=ux(c1,l1,l2); w[s1][n1+1][n2+1][n3+1]=u1; } } } } for (s1=2;s1 =10;s1++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ l1=(y1[s1][s2]+n1*h)/th1[s1-1]; l2=(y2[s1][s2]+n2*h)/th2[s2]; c1=c[s1][s2]+n3*h; u1=ux(c1,l1,l2); rw[s1][n1+1][n2+1][n3+1]=u1; } } } } for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ for (q=-5;q =5;q++){ v[1][n1+1][n2+1][n3+1][q+5]=-999; } } } } for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ q=n1+n2-n3; v[1][n1+1][n2+1][n3+1][q+5]=u[1][n1+1][n2+1][n3+1]; } } } for (s1=2;s1 =9;s1++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ for (q=-5;q =5;q++){ u1=u[s1][n1+1][n2+1][n3+1]; qx=q-n1-n2+n3; pp=0; if (qx 5)pp=100; if (qx -5)pp=100; if (pp 10)qx=0; maxv=-999; mx1=0; mx2=0; mx3=0; for (m1=-1;m1 =1;m1++){ for (m2=-1;m2 =1;m2++){ for (m3=-1;m3 =1;m3++){ v1=u1+v[s1-1][m1+1][m2+1][m3+1][qx+5]; ww=w[s1-1][m1+1][m2+1][m3+1]; if (ww u1){ v1=-999; } if (rw[s1][n1+1][n2+1][n3+1] u[s1-1][m1+1][m2+1][m3+1])v1=-999; if (v1 maxv)mx1=m1; if (v1 maxv)mx2=m2; if (v1 maxv)mx3=m3; if (v1 maxv)maxv=v1; } } } if (pp 10)maxv=-999; v[s1][n1+1][n2+1][n3+1][q+5]=maxv; gotoc[s1][n1+1][n2+1][n3+1][q+5]=mx3; goto1[s1][n1+1][n2+1][n3+1][q+5]=mx1; goto2[s1][n1+1][n2+1][n3+1][q+5]=mx2; gotoq[s1][n1+1][n2+1][n3+1][q+5]=qx; } } } } } for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ u1=u[10][n1+1][n2+1][n3+1]; qx=n3-n1-n2; maxv=-999; mx1=0; mx2=0; mx3=0; for (m1=-1;m1 =1;m1++){ for (m2=-1;m2 =1;m2++){ for (m3=-1;m3 =1;m3++){ v1=u1+v[9][m1+1][m2+1][m3+1][qx+5]; ww=w[9][m1+1][m2+1][m3+1]; if (ww u1)v1=-999; if (rw[10][n1+1][n2+1][n3+1] u[9][m1+1][m2+1][m3+1])v1=-999; if (v1 maxv)mx1=m1; if (v1 maxv)mx2=m2; if (v1 maxv)mx3=m3; if (v1 maxv)maxv=v1; } } } endv[n1+1][n2+1][n3+1]=maxv; endc[n1+1][n2+1][n3+1]=mx3; end1[n1+1][n2+1][n3+1]=mx1; end2[n1+1][n2+1][n3+1]=mx2; endq[n1+1][n2+1][n3+1]=qx; } } } maxv=-999; nx1=0; nx2=0; nx3=0; for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ if (endv[n1+1][n2+1][n3+1] maxv)nx1=n1; if (endv[n1+1][n2+1][n3+1] maxv)nx2=n2; if (endv[n1+1][n2+1][n3+1] maxv)nx3=n3; if (endv[n1+1][n2+1][n3+1] maxv)maxv=endv[n1+1][n2+1][n3+1]; } } } opc[10]=nx3; op1[10]=nx1; op2[10]=nx2; opc[9]=endc[nx1+1][nx2+1][nx3+1]; op1[9]=end1[nx1+1][nx2+1][nx3+1]; op2[9]=end2[nx1+1][nx2+1][nx3+1]; opq[9]=endq[nx1+1][nx2+1][nx3+1]; for (j=1;j =8;j++){ s1=9-j; n1=op1[s1+1]; n2=op2[s1+1]; n3=opc[s1+1]; q=opq[s1+1]; opc[s1]=gotoc[s1+1][n1+1][n2+1][n3+1][q+5]; op1[s1]=goto1[s1+1][n1+1][n2+1][n3+1][q+5]; op2[s1]=goto2[s1+1][n1+1][n2+1][n3+1][q+5]; opq[s1]=gotoq[s1+1][n1+1][n2+1][n3+1][q+5]; } ep=0; for (s1=1;s1 =10;s1++){ ep=ep+opc[s1]*opc[s1]+op1[s1]*op1[s1]+op2[s1]*op2[s1]; } sumep=sumep+ep; for (s1=1;s1 =10;s1++){ c[s1][s2]=c[s1][s2]+opc[s1]*h; y1[s1][s2]=y1[s1][s2]+op1[s1]*h; y2[s1][s2]=y2[s1][s2]+op2[s1]*h; } if (ep 2)t2=1000; t2=t2+1; } } for (s1=1;s1 =10;s1++){ maxv=-999; t3=0; while(t3 100){ for (s2=1;s2 =10;s2++){ maxu=-999; for (sig1=-1;sig1 =1;sig1++){ for (sig2=-1;sig2 =1;sig2++){ m1=s1+sig1; m2=s2+sig2; if (m1 10)m1=10; if (m1 1)m1=1; if (m2 10)m2=10; if (m2 1)m2=1; l1=(y1[m1][m2])/th1[s1]; l2=(y2[m1][m2])/th2[s2]; c1=c[m1][m2]; u1=ux(c1,l1,l2); if (s1==m1)u1=-999; if (u1 maxu)maxu=u1; } } z[s2]=maxu; } for (s2=1;s2 =10;s2++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ l1=(y1[s1][s2]+n1*h)/th1[s1]; l2=(y2[s1][s2]+n2*h)/th2[s2]; c1=c[s1][s2]+n3*h; u1=ux(c1,l1,l2); if (z[s2] u1)u1=-999; u[s2][n1+1][n2+1][n3+1]=u1; } } } } for (s2=1;s2 =10;s2++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ check=0; for (sig1=-1;sig1 =1;sig1++){ for (sig2=-1;sig2 =1;sig2++){ m1=s1+sig1; m2=s2+sig2; if (m1 10)m1=10; if (m1 1)m1=1; if (m2 10)m2=10; if (m2 1)m2=1; l1=y1[m1][m2]/th1[m1]; l2=y2[m1][m2]/th2[m2]; c1=c[m1][m2]; u1=ux(c1,l1,l2); l1=(y1[s1][s2]+n1*h)/th1[m1]; l2=(y2[s1][s2]+n2*h)/th2[m2]; c1=c[s1][s2]+n3*h; u2=ux(c1,l1,l2); if (s1==m1)u2=-999; if (u2 u1)check=100; } } if(check 50)u[s2][n1+1][n2+1][n3+1]=-999; } } } } for (s2=1;s2 =9;s2++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ l1=(y1[s1][s2]+n1*h)/th1[s1]; l2=(y2[s1][s2]+n2*h)/th2[s2+1]; c1=c[s1][s2]+n3*h; u1=ux(c1,l1,l2); w[s2][n1+1][n2+1][n3+1]=u1; } } } } for (s2=2;s2 =10;s2++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ l1=(y1[s1][s2]+n1*h)/th1[s1]; l2=(y2[s1][s2]+n2*h)/th2[s2-1]; c1=c[s1][s2]+n3*h; u1=ux(c1,l1,l2); rw[s2][n1+1][n2+1][n3+1]=u1; } } } } for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ for (q=-5;q =5;q++){ v[1][n1+1][n2+1][n3+1][q+5]=-999; } } } } for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ q=n1+n2-n3; v[1][n1+1][n2+1][n3+1][q+5]=u[1][n1+1][n2+1][n3+1]; } } } for (s2=2;s2 =9;s2++){ for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ for (q=-5;q =5;q++){ u1=u[s2][n1+1][n2+1][n3+1]; qx=q-n1-n2+n3; pp=0; if (qx 5)pp=100; if (qx -5)pp=100; if (pp 10)qx=0; maxv=-999; mx1=0; mx2=0; mx3=0; for (m1=-1;m1 =1;m1++){ for (m2=-1;m2 =1;m2++){ for (m3=-1;m3 =1;m3++){ v1=u1+v[s2-1][m1+1][m2+1][m3+1][qx+5]; ww=w[s2-1][m1+1][m2+1][m3+1]; if (ww u1)v1=-999; if (rw[s2][n1+1][n2+1][n3+1] u[s2-1][m1+1][m2+1][m3+1])v1=-999; if (v1 maxv)mx1=m1; if (v1 maxv)mx2=m2; if (v1 maxv)mx3=m3; if (v1 maxv)maxv=v1; } } } if (pp 10)maxv=-999; v[s2][n1+1][n2+1][n3+1][q+5]=maxv; gotoc[s2][n1+1][n2+1][n3+1][q+5]=mx3; goto1[s2][n1+1][n2+1][n3+1][q+5]=mx1; goto2[s2][n1+1][n2+1][n3+1][q+5]=mx2; gotoq[s2][n1+1][n2+1][n3+1][q+5]=qx; } } } } } for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ u1=u[10][n1+1][n2+1][n3+1]; qx=n3-n1-n2; maxv=-999; mx1=0; mx2=0; mx3=0; for (m1=-1;m1 =1;m1++){ for (m2=-1;m2 =1;m2++){ for (m3=-1;m3 =1;m3++){ v1=u1+v[9][m1+1][m2+1][m3+1][qx+5]; ww=w[9][m1+1][m2+1][m3+1]; if (ww u1)v1=-999; if (rw[10][n1+1][n2+1][n3+1] u[9][m1+1][m2+1][m3+1])v1=-999; if (v1 maxv)mx1=m1; if (v1 maxv)mx2=m2; if (v1 maxv)mx3=m3; if (v1 maxv)maxv=v1; } } } endv[n1+1][n2+1][n3+1]=maxv; endc[n1+1][n2+1][n3+1]=mx3; end1[n1+1][n2+1][n3+1]=mx1; end2[n1+1][n2+1][n3+1]=mx2; endq[n1+1][n2+1][n3+1]=qx; } } } maxv=-999; nx1=0; nx2=0; nx3=0; for (n1=-1;n1 =1;n1++){ for (n2=-1;n2 =1;n2++){ for (n3=-1;n3 =1;n3++){ if (endv[n1+1][n2+1][n3+1] maxv)nx1=n1; if (endv[n1+1][n2+1][n3+1] maxv)nx2=n2; if (endv[n1+1][n2+1][n3+1] maxv)nx3=n3; if (endv[n1+1][n2+1][n3+1] maxv)maxv=endv[n1+1][n2+1][n3+1]; } } } opc[10]=nx3; op1[10]=nx1; op2[10]=nx2; opc[9]=endc[nx1+1][nx2+1][nx3+1]; op1[9]=end1[nx1+1][nx2+1][nx3+1]; op2[9]=end2[nx1+1][nx2+1][nx3+1]; opq[9]=endq[nx1+1][nx2+1][nx3+1]; for (j=1;j =8;j++){ s2=9-j; n1=op1[s2+1]; n2=op2[s2+1]; n3=opc[s2+1]; q=opq[s2+1]; opc[s2]=gotoc[s2+1][n1+1][n2+1][n3+1][q+5]; op1[s2]=goto1[s2+1][n1+1][n2+1][n3+1][q+5]; op2[s2]=goto2[s2+1][n1+1][n2+1][n3+1][q+5]; opq[s2]=gotoq[s2+1][n1+1][n2+1][n3+1][q+5]; } ep=0; for (s2=1;s2 =10;s2++){ ep=ep+opc[s2]*opc[s2]+op1[s2]*op1[s2]+op2[s2]*op2[s2]; } sumep=sumep+ep; for (s2=1;s2 =10;s2++){ c[s1][s2]=c[s1][s2]+opc[s2]*h; y1[s1][s2]=y1[s1][s2]+op1[s2]*h; y2[s1][s2]=y2[s1][s2]+op2[s2]*h; } if (ep 2)t3=1000; t3=t3+1; } } if (sumep 5)h=h/2; if (h 0.0001)t4=1000; t4=t4+1; } for (s1=1;s1 =10;s1++){ for (s2=1;s2 =10;s2++){ System.out.print(s1); System.out.print(","); System.out.print(s2); System.out.print(","); System.out.print(c[s1][s2]); System.out.print(","); System.out.print(y1[s1][s2]); System.out.print(","); System.out.println(y2[s1][s2]); } } } static double bud(double tk,double tl,double tr,double th1[],double th2[]){ double b1,w1,w2,l1,l2,c1; int s1,s2,i; b1=0; for (s1=1;s1 11;s1++){ for (s2=1;s2 11;s2++){ w1=(1-tk)*th1[s1]; w2=(1-tl)*th2[s2]; l1=1-(w1+w2+tr)/(3*w1); l2=1-(w1+w2+tr)/(3*w2); i=0; if (l1 0)i=i+1; if (l2 0)i=i+1; if (i==2)l1=0; if (i==2)l2=(w2-tr)/(2*w2); i=0; if (l1 0)i=i+1; if (l2 0)i=i+1; if (i==2)l1=(w1-tr)/(2*w1); if (i==2)l2=0; c1=w1*l1+w2*l2+tr; b1=b1+th1[s1]*l1+th2[s2]*l2-c1; } } return b1; } static double wel(double tk,double tl,double tr,double th1[],double th2[]){ double we,w1,w2,l1,l2,c1; int s1,s2,i; we=0; for (s1=1;s1 11;s1++){ for (s2=1;s2 11;s2++){ w1=(1-tk)*th1[s1]; w2=(1-tl)*th2[s2]; l1=1-(w1+w2+tr)/(3*w1); l2=1-(w1+w2+tr)/(3*w2); i=0; if (l1 0)i=i+1; if (l2 0)i=i+1; if (i==2)l1=0; if (i==2)l2=(w2-tr)/(2*w2); i=0; if (l1 0)i=i+1; if (l2 0)i=i+1; if (i==2)l1=(w1-tr)/(2*w1); if (i==2)l2=0; c1=w1*l1+w2*l2+tr; we=we+Math.log(c1)+Math.log(1-l1)+Math.log(1-l2); } } return we; } static double trs(double tk,double tl,double[] th1,double[] th2){ double tr1,tr2,tr3,b1,b2; int t1; tr1=0.1; tr2=0.05; b1=bud(tk,tl,tr1,th1,th2); t1=0; while(t1 100){ b2=bud(tk,tl,tr2,th1,th2); tr3=tr2-b2*(tr2-tr1)/(b2-b1); b1=b2; tr1=tr2; tr2=tr3; if (b2*b2 0.001)t1=1000; t1=t1+1; } return tr2; } static double ux(double c1,double l1,double l2){ int pp; double u1,cp1,lp1,lp2; pp=0; cp1=c1; lp1=l1; lp2=l2; if (lp1 0)pp=100; if (lp1 0.99)pp=100; if (lp2 0)pp=100; if (lp2 0.99)pp=100; if (pp 50)lp1=0.5; if (pp 50)lp2=0.5; u1=Math.log(cp1)+Math.log(1-lp1)+Math.log(1-lp2); if (pp 50)u1=-999; return u1; } }
https://w.atwiki.jp/lprograml/pages/11.html
インスタグラムプラグイン 人気の画像共有サービス、Instagram(インスタグラム)の画像をアットウィキに貼れるプラグインです。 #ig_user(ユーザー名) と記載することで、特定ユーザーのInstagramのフィードを表示することができます。 例)@dogoftheday #ig_user #ig_tags(タグ名) と記載することで、特定タグのInstagramのフィードを表示することができます。 #dogofthedayjp タグ #ig_tag #ig_popular と記載することで、Instagramのpopularフィードを表示することができます。 詳しい使い方は以下のページを参考にしてください! =>http //www1.atwiki.jp/guide/pages/935.html
https://w.atwiki.jp/nicocreator/pages/13.html
クリエイター推奨プログラムとは? http //commons.nicovideo.jp/cpp/ ニコニ・コモンズがユーザーの投稿作品を素材とした二次創作、派生作品を推奨するプログラムであったところからさらに一歩進み 素材として利用された作品、投稿者に対してニワンゴが奨励金を支払う制度です。 公明正大に管理、運用されれば素晴らしいサービスかもしれません。 しかし投稿作品が他者の権利を侵害しているものであった場合、どうなるでしょうか。 はたしてニコニコ動画運営 ニワンゴは不正な利用者に対して、権利者に対して、誠実に対応してくれるのでしょうか? プログラム規約の問題 著作権侵害の実情について 現行のニコニコ動画サービス 現行のニコニ・コモンズサービス 以下ニコニコ大百科:クリエイター奨励プログラムより引用、加筆・修正 プレミアム会員収入の一部を原資としてニコニコ動画の投稿作品(動画、静画、ニコニ・コモンズ素材)に奨励金を付与する。 大まかな流れとしては ニコニコ動画、ニコニコ静画、ニコニ・コモンズに投稿している作品に、まずコンテンツツリーの設定を行い(コンテンツツリー自体は単体で利用可能な別制度だが、奨励プログラムがツリーを利用しており登録必須)、クリエイター奨励プログラムに登録する(一旦登録すると解除できないので注意)。 登録された作品にスコア(換金可能ポイント)が付与される。スコアは作品の人気度、派生作品の数や人気度等で計算されるが詳しい計算方法は公開されていない。原資は一定なので、登録作品が多くなるとその分1作品ごとのスコアは減少する。 スコアの計算、付与は月単位で行われ、貯まったスコアは1点=1pt(交換受付は10点以上~)でニコニコポイントに、1点=1円(同10000点以上~)で現金に交換できる(スコアにもニコニコポイントと同じように有効期限(1年)がある)。 登録時点と、スコア付与時点に、プレミアム会員である必要がある。 ちなみに、ニコニ・コモンズにて投稿作品の設定を「営利目的利用不可能」としても、スコアは付与される(スコア付与は「営利目的」の例外扱い)。 詳しくは利用規約を参照 また、発表会では、生放送でも同様の仕組みを考えているという発言がなされている。
https://w.atwiki.jp/seihokuict/pages/60.html
プログラミング教育に役立つサイトです 未来の学びコンソーシアム「小学校を中心としたプログラム教育ポータル」 https //miraino-manabi.jp/ Scratchスクラッチ 世界中で利用されているサイトです。無償で提供されています。 インタラクティブストーリーやゲーム、アニメーションを作ることができます。 できあがった作品はオンラインコミュニティで他の人と共有できます。 教育者として、Scratchの教師用アカウントを申請すると、生徒のグループのアカウントを作成しやすくなり、 さらに生徒のプロジェクトやコメントを管理しやすくなります。 Scratchで楽しむ レッツ!プログラミング ジュニア・プログラミング検定 公式テキスト 単行本 – 2018/3/9(アマゾン) Scratchで楽しむ レッツ!プログラミング ジュニア・プログラミング検定 公式テキスト Kindle版(アマゾン) できるキッズ 子どもと学ぶ Scratch プログラミング入門 単行本(ソフトカバー) – 2017/7/13(アマゾン) できるキッズ 子どもと学ぶ Scratch プログラミング入門 できるキッズシリーズ Kindle版(アマゾン) Pythonパイソン 最近、人気のプログラミング言語です。 12歳からはじめる ゼロからの Pythonゲームプログラミング教室 単行本(ソフトカバー) – 2017/5/11(アマゾン) 12歳からはじめる ゼロからの Pythonゲームプログラミング教室(リフロー版) Kindle版(アマゾン) Rubyルビィ まつもとゆきひろ氏により1995年に開発されたプログラミング言語。 日本で開発されたプログラミング言語としては初めて国際電気標準会議で国際規格に認証されました。 小学生から楽しむ Rubyプログラミング 単行本 – 2014/7/19(アマゾン) 小学生から楽しむ Rubyプログラミング Kindle版(アマゾン) 恋するプログラム―Rubyでつくる人工無脳 単行本(ソフトカバー) – 2005/4 恋するプログラム―Rubyでつくる人工無脳 (Mynavi Advanced Library) Kindle版 .
https://w.atwiki.jp/sagazero/pages/33.html
プログラムとは? メカ専用の技。 プログラムを所持する敵メカを倒し、「データ収集」することで、入手出来ることがある。 プログラムが使用できる機体 本来は細かな規定がありますが、 サガゼロにおいてはある程度融通を利かせて構いません。 拘りたければもちろん、拘っても構いません。 その場合は、他のPCに強制しないように気をつけましょう。 プログラム一覧 名称 消費WP 効果 レーザー回避 0 レーザーを回避する ロケット弾回避 0 ロケット弾を回避する バルカン回避 0 バルカンを回避する 射撃マスタリー 0 銃と重火器による攻撃のダメージアップ 剣闘マスタリー 0 剣などの攻撃のダメージアップ 龍神プログラム 0 モンスター技「メイルシュトローム」が使用できる 猛虎プログラム 0 技「タイガーランページ」が使用できる マクスウェルシステム 0 つけていると、毎ターンWPが極小回復する 自己修復 0 つけていると、毎ターンHPが自動回復する 無伴奏ソナタ 小 音波攻撃で敵全体を攻撃する。更に敵メカは一時行動停止することもある 神威クラッシュ 小 敵単体に捨て身の攻撃を食らわせ、大ダメージを与えるが、自分もLP1減ってしまう ヘッジホグシステム 0 自分への直接攻撃を一定確率で受け止め、ミサイルでカウンター びっくりソルジャー 大 小型の支援機で、敵全体に突進して攻撃。浮遊している敵には当たらない どっきりナイツ 特大 びっくりの改良版。小型の支援機で、上空から敵全体を攻撃 論理爆弾 小 対敵メカ用。敵メカ単体にプログラムを送信し、ステータス異常を引き起こす ジャマー 極小 対敵メカ用。敵メカ全体に妨害電波を発信し、一時的に動きを止める 催眠フラッシュ 極小 青白い閃光で、敵全体を睡眠状態にする 多断斬り 中 メカの能力で剣を振って複数回攻撃する。使用者の威力が高い程強くなる マグニファイ 極大 その武器の性能を解析。敵単体に、最も効率的で最大の攻撃を与えるが、その武器は故障ししばらく使用できなくなる 集中射撃 小 敵単体に銃を連射してダメージ 範囲射撃 小 敵複数に銃を連射してダメージ ハンマークラッシュ 小 敵単体に巨大なハンマーで攻撃する エネルギー補給 0 メカタイプの味方単体の、WPを50回復する 全弾発射 超極大 装備している全ての武器の、全ての弾丸を一瞬にして撃ち尽くす
https://w.atwiki.jp/sagafrontierr/pages/21.html
このページはちょい研究所様のデータ収集・敵データを自分用にまとめただけのページです。 一部データ(モービルマニューバ)はサガ用語辞典様を参考にしています。 T1=ボディタイプ1:T260 T2=ボディタイプ2:ラビット T3=ボディタイプ3:ナカシマ零式 T4=ボディタイプ4:BJ&K T5=ボディタイプ5:pzkwⅤ T6=ボディタイプ6:特殊工作車,レオナルド T7=ボディタイプ7 T8=ボディタイプ8 T260Gはボディタイプを変更可能。 プログラム名 プログラム開発 プログラム吸収 T1 T2 T3 T4 T5 T6 T7 T8 出現ランク モンスター名 確率 開発のみ エネルギー補給 - - - - - 25 - - - カウンターEMC - - 16 - - - - - - 神威クラッシュ - - 13 - - - - - - 剣闘マスタリー 13 - 21 - - 22 17 24 - サテライトリンカー - 26 - - - - - - - 射撃マスタリー 18 11 16 14 13 16 22 22 - 集中射撃 - - - - - ?? - - - 全弾発射 - - 32 - 23 33 31 - - 多段斬り 22 - 27 - - 18 36 27 - どっきりナイツ - - - - - 37 - - - 範囲射撃 - - - - - ?? - - - ハンマークラッシュ - - - - - - 14 - - びっくりソルジャー 33 - - - - 27 28 - - ヘッジホッグシステム - - 29 - 24 36 26 - - 開発&吸収 マクスウェルシステム 28 24 - 29 - - - - メカ2 メカドビー 1/32 メカ6 ヘルメス 1/32 おとも メタルホッパー 1/32 おとも メカドッグ 1/32 おとも 電気羊 1/32 レッド編エミリア編 マスクポリッシャー 1/32 レッド編 オートポリッシャー 1/32 T260G編 モービルマニューバ(タルタロス) 1/1,1/4,1/16 マグニファイ - 23 - 27 30 - 28 32 おとも Tウォーカー 1/32 無伴奏ソナタ - - 37 25 - - 35 - メカ8 スカイラブ 1/16 レッド編エミリア編 マスクポリッシャー 1/16 メカ4 キャンキャン 1/32 T260G編 モービルマニューバ(?) 1/32 吸収のみ ウィルス - T260G編編 ウィルス 必 催眠フラッシュ - メカ3 スカイアーム 1/4 メカ5 アルバトロス 1/4 レッド編エミリア編 マスクポリッシャー 1/4 レッド編 オートポリッシャー 1/4 メカ1 ソードアタッカー 1/16 T260G編 モービルマニューバ(?) 1/1 T260G編 モービルマニューバ(タルタロス) 1/32 自己修復 - メカ8 スカイラブ 1/32 メカ9 R R 1/32 ジャマー - おとも メタルホッパー 1/4,1/16 メカ4 キャンキャン 1/4 メカ3 スカイアーム 1/16 メカ1 ソードアタッカー 1/32 T260G編 モービルマニューバ(?) 1/4 バルカン回避 - メカ6 ヘルメス 1/4 おとも メカドッグ 1/4 おとも 電気羊 1/4 おとも Tウォーカー 1/4 メカ4 キャンキャン 1/16 メカ5 アルバトロス 1/16 メカ7 メカドビー百式 1/16 クーン編T260G編 ヴァルカン改 1/16 T260G編 ヴァルカン 1/16 メカ3 スカイアーム 1/32 T260G編 バスターマシン 1/32 T260G編レッド編 ガンファイター 1/32 猛虎プログラム - 武王の古墳T260G編 機械神バロール 必 レッド編 メタルブラック 必 T260G編 モービルマニューバ(最終兵器) 1/4,1/16,1/32 龍神プログラム - レッド編 メタルブラック改 必 T260G編 モービルマニューバ(タルタロス・タイプC) 必 T260G編 モービルマニューバ(最終兵器) 1/1 倫理爆弾 - メカ9 R R 1/16 T260G編 モービルマニューバ(?) 1/16 メカ5 アルバトロス 1/32 レーザー回避 - メカ8 スカイラブ 1/4 おとも メカドッグ 1/16 メカ7 メカドビー百式 1/32 ロケット弾回避 - メカ2 メカドビー 1/4,1/16 メカ7 メカドビー百式 1/4 メカ9 R R 1/4 メカ6 ヘルメス 1/16 おとも 電気羊 1/16 おとも Tウォーカー 1/16 レッド編 オートポリッシャー 1/16 クーン編T260G編 ヴァルカン改 1/32 T260G編 ヴァルカン 1/32 プログラム名 T1 T2 T3 T4 T5 T6 T7 T8 出現ランク モンスター名 確率 プログラム開発 プログラム吸収
https://w.atwiki.jp/matatsuke/pages/21.html
口コミ・感想・掲示板 その3 仕事で午後10時~11時位に帰宅している人で、1日3時間くらい呼吸できている人いますか?どんな感じでやってます? -- 六郎 (2009-01-17 17 57 24) 一時期仕事が忙しくなって遅い帰宅になっていました。 その時は疲れてすぐ眠ってしまうので、朝早く起きて呼吸法をしていました。 あと休憩の時間に何気なくやっていましたね -- miyoji (2009-01-18 22 40 30) 最近やっと努力してきた分の成果が出てきたように思います。 呼吸法をたくさんこなして、ルーツ分析もとことんして、 効果が出てきました。 もし呼吸法が何の意味があるのかわからない人がいたら、 それはやればやるほど後に絶対つながるものだと言いたいです! -- 通い中 (2009-01-22 12 39 18) はじめてから結構な月日がたちます。 睡眠時間を削り、成果を出した人と同じ量の呼吸をこなしても、状態は良くなるどころか、悪くなる一方。薬の量も増えてきてるし。 呼吸が足りない!甘い!覚悟が足りない!といわれればそのとおりなのですが。 俺はやっぱりここでもおちこぼれなのか -- pest (2009-01-23 00 12 42) ルーツ分析のCDを作る時は、セラピーの時間中に 作った方がいいですよ。 あとルーツ分析は自分でどんどん進めていけばいいです。 先生にみせるものと言うよりも、自分でわからなければいけないものですから。 その上で、先生からヒントや解説をもらえるので、それを 聞いていけば、胸から重しがとれたようになりました。 -- miyoji (2009-01-23 21 18 24) 呼吸ばっかりにとらわれるよりも、ルーツ分析も進めていくといいですよ >>pestさん 覚悟をもとう、もとうと思っても、もてない時はもてないです。 最終的に覚悟は必要ですけど、そればっかりにとらわれないでください。 -- miyoji (2009-01-23 21 21 03) 今日もデパスを飲んで出社。今日はあまり薬が効かず、朝礼時、キョドっていました。miyojiさん、ありがとうございます。私は、2回目からは集団しか出たことないので、ルーツ分析とは、そもそも何をするのか知らず知らないのです。集団が終わった後、次回の予約をしますが大量の人がいて、今までは集団しか出れてません。今度は集団の終わりでなく、普段の日に個人を予約してみます。 -- K (2009-01-23 22 06 56) miyojiさん、ルーツ分析とは何をすればよいのか、ざっくり教えてくださいませ。経歴は7ページくらいにまとめ終わっています。でも、集団しか出てないので、その経歴を先生にまだ見て頂いていません…(ToT) -- K (2009-01-23 22 22 11) miyojiさん アドバイスありがとうございます。 ルーツ分析はだいぶ前に1度先生に出してます。 読んでもらっているかどうかはわかりませんが・・ これからおそらく2度3度とやりなおしたり掘り下げたりすることになるとは 思いますが、私もほとんど集団ばっかりなので、そのことについて先生と話は出来てないです。 まだだいぶ長いこと日々呼吸を繰り返しながら、集団で「体を作る」ことが先になるでしょうね -- pest (2009-01-24 01 03 53) 先生とは関係なしに、ルーツ分析は自分のためなので、 どんどんやっていったほうがいいです。 やり方は、マイナスの感情、不安、感情抑圧を中心に どのようなきっかけ、環境、考え方があって、次に どうつながり、さらに強化したり、コピーの連続に つながっていったのか、どんどん書いていくように 通っている人から言われたことがあります。 ただの出来事の羅列ではなくて、感情的、思考の部分を 書いていくといいといっていて、その通りやっていったら、 出来事の羅列よりもより自分の悩みの核心に迫ることが できた感じが強くしました。 ルーツ分析をして、自分の感情が揺り動かされる文章に なって、「悩んで当たり前だったんだな」ぐらいまで理解が進めば、 心がすごく落ち着いていきましたよ。 先生の解説もよかったですが、自分自身の問題なので、 自分がわからなければいけないことです。 -- miyoji (2009-01-25 11 19 27) 通い始めて2回目のものです。神経症の治療と並行して会話の格闘術も教えてもらうそうですが、 HPにはコミュニケーション時に迫力が出ると書いてあります。皆さんは治療終了後そのようなことを感じたことがありますか? -- タカ (2009-01-25 19 33 46) 会話術については、頼まないと教えてもらえませんよ 会話の格闘術のプログラムを受けているなら別でしょうが。 どちらにしても自己主張できるようにならないと迫力なんか 出ないと思います。 -- 通い中 (2009-01-26 20 13 11) ささいな事ですが、強い呼吸の後、いきむ際に、後ろにそらすやり方と 前のほうに踏ん張るやり方とでは、効果は違うんでしょうか? -- 六郎 (2009-01-27 18 20 41) 後ろにそらした方が個人的に好きです。がっちりくるような気がして、 変性意識になりやすいです。個人的にしっくり来る方でやれば いいんじゃないでしょうか? こういうことって、自分の好みに 忠実になった方がいい効果が出ますし。 -- Ginsan (2009-01-28 00 09 06) 私は、神経症克服プログラム受けていますが、会話の格闘術のプログラムは別のものなのでしょうか。 -- Y (2009-01-29 01 04 35) 教えて欲しいといえば教えてくれるかもしれませんよ。 会話とか対人コミュニケーションのスキルをアップしておいて絶対損はないわけですし、 おすすめです。 -- miyoji (2009-01-29 11 53 30) 呼吸についてですが弱い呼吸のほうがやるのが楽なのでそればかりやってしまいます。 強い呼吸は根気がいるので、甘えていると分かっていても楽なほうをやってしまいます。 自分が甘いのでしょうか。 -- ユウ (2009-01-29 12 05 08) ルーツ分析と呼吸を平行してやっています。 過去の出来事を思い起こすことが多くなって感情的になり、日常生活に支障が出始めました。 (うつ、不眠、ひどい疲労感など) 乗り切った方、どのようにすごしたか教えていただけますか? -- santa (2009-01-30 10 13 22) やっぱり落ち込むことがあります。感情的にマイナスになってしまって、 苦しい時期もありました。それを乗り越えると、すごく楽になりましたよ。 感情的になることはいいことだと思います。というのも感情の抑圧を いままでずっとしていたなら、それを発散しているからです。 つまりトラウマ処理をしていることになります。 ルーツ分析をして感情をかき立てなれないより全然いいですよ。 たしかに嫌な思いもしましたが、やって良かったです。 感情の処理をしないと心に余裕は生まれなかったです。 先生に今度相談したらいいと思います。 感情的になっている時は、より暗示も浸透しますし、 より深い感覚に入れると思います。 僕はそうでしたよ。 -- ginsan (2009-01-30 11 58 53) ゆっくりの呼吸でも積み重なれば上達していくので問題ないですよ 強い呼吸も連続してはけるようになりますし、やるときに強い呼吸はやればいいです -- GInsan (2009-01-30 12 00 31) かなり症状の方が改善していきました。最近快調です。 人への恐怖心がなくなっていって、自信も出てきました。 自分でもやれるという信頼ももてるようになれたので、気分が いいです。そのためにも自分で自分を追いつめている思考やとらえ方を 変えていくのも必要だと思いました。 自分を変えるためにこのプログラムは最適だと思ってます。 これからも頑張っていきたいです。 -- 1234 (2009-01-31 17 05 49) ゆっくりの呼吸やってから、体をほぐして、強い呼吸やると深く入れます!ストレッチを日々やると大分違うみたいです。 -- ともこ (2009-02-01 17 16 22) 岩波さんの会話術はとても役立ちますね。 ルーツ分析やトランスを深めることももちろんですが、 会話や人間心理について先生から教わると、そちらの方向からも 対人神経症やあがり症に対して大変効果的なアプローチになりました。 どんどん先生から会話や人間心理について教わった方がいいですよ。 複合的に総合的にやっていくことがよかったです。 -- 1234 (2009-02-02 15 21 53) 本当に対人恐怖症は治るのでしょうか?視線も気になりどうしようもない状況です。治ったときの感じになるんでしょうか?あきらめたくないです。 -- 素人 (2009-02-03 22 10 28) ginsan教えてくださりありがとうございます。自分がどう変わっていくのか不安だらけではありますが、 ルーツ分析を乗り越えるところまでは何とかまじめに取り組もうと思えるようになりました。 -- santa (2009-02-03 23 42 24) 暗示を聞いていると、まだそのプラスの暗示を100%受け入れられないからか そんな自分がもどかしく情けなくなり、今までどんなにつまらない人生だったかと、悔しくて涙が出てきます。 そして絶対良くなってやる!とやけくそになって半分泣きながら 呼吸をしています。眠いのを我慢してやっています。 やけくそに息を吹いているので、かえって体に力が入って 体が緩むどころか硬くなってしまうのではないかと心配です。 このまま続けたら、今の状況を乗り越えられる瞬間が来るのでしょうか?? -- ◎ (2009-02-04 21 31 42) 強い呼吸をしているなら、体に力が入ってもいいですよ。 ゆっくり目は体のゆるみが必要になります。 誰でも暗示への抵抗というものがあると思います。 自分自身、悔しさを逆にバネにすることができたので、 その意気込みは必要だと思います。 感情的になる時は、意識が変容しやすいときだったです。 -- miyoji (2009-02-05 14 11 19) 強い呼吸なら力が入っても大丈夫なんですね。やり方を間違えているかと 思っていました。 -- ◎ (2009-02-05 22 13 36) 強い呼吸は力を入れて体の内部からはき出すのがコツです。 それと、強い呼吸の連続を終えた後に、開放された感じを味わうと 気持ちいいです。その時に体のゆるみを味わえばいいと思います。 -- 1234 (2009-02-06 15 25 26) 強い呼吸をしている途中でお腹の胃が痛くなり、 そのせいであまり長く呼吸が続きません。 もしかして、僕が行っている呼吸のやり方は 非効率でしょうか?何かコツはありませんか? -- 巣釜 (2009-02-06 21 57 35) 脇見恐怖で先生の所へ通っているよぴです。 質問です。人とすれ違う時など効率のいい受け流し方があると聞いたんですがどなたかご存知ですか? といってもバカになる事が一番でしょうが、もっと人前にでてたくましくなりたいです。 よろしくお願いします。 -- よぴ (2009-02-07 00 51 42) 強い呼吸でおなかに負担が来る人は、体がまだ固い人だといっていました。 ですから、ゆっくり目の呼吸をやればいいかと思います。 ストレッチをかかさずやるとまた違ってきますよ -- moyoji (2009-02-07 14 43 45) 強い呼吸を長い時間で可能になるのは弱い呼吸の積み重ねによって出来るものなんですね しばらくは弱い呼吸を精錬してみます -- 巣釜 (2009-02-07 20 00 07) santaさんの書き込みを見て、同じ人がいるんだと、少し安心しました。 ルーツ整理のCDを聞いて、普通の人は大体2ヶ月位で楽になったと言うそうです。 私はあまりの衝撃に心がダメージを受けて、聞くのを止めています。 まずは体をほぐして暗示が入るようにするのが先決だと言われました。 先生にはがちがちに体が固いと言われます。 最近、自分は治るのだろうか?と不安になります。 症状の重い人ほどそう思うと言っていました。 こういう不安に対して、体験された方はどう対処していましたか? -- メイ (2009-02-08 19 14 02) ルーツのCDを聞いていたら涙が止まらなかったことがあります。 そして心の重荷がとれていったんですが、それまでは同じようにダメージが ありました。辛いことに触れることはやっぱりいやでしたから。 そんな自分でも、ルーツCDを聞いて、トラウマ処理が出来ていったのは、 きっかけがありました。 通った時に暗示をかけてもらって、先生の指示通りに 過去の流れを映像で思い浮かべることをやりました。 そして先生の暗示で「楽になるよ」といわれたら、 それからは家でルーツCDを聞いてもダメージを受けることは なくなりました。 その経験からいうと、メイさんも体を柔らかくして、 先生の暗示に反応するようになってから、また再開 するといいと思います。 悩みまくりの人は「自分だけは別だ」なんて思ってしまいます。 そんな思考は誰だって持っているから、ご自分だけじゃないですよ。 あまりの衝撃にダメージを受けるくらいなら、先生と一緒の時にだけ 過去を思い出す作業をやると安心だと思います。 -- 通い中 (2009-02-09 18 44 02) 今、4回通ったところです。 まだ、3~4回目でも、体がすごくゆるむ方もいますね。 そういうのを見ると、正直、ショックです。 呼吸の練習は、こっちの方が明らかに、しているはずなのに。 (実際に聞いてみたら、毎日1時間か、しない日もあると いう人が、すごくゆるんでいた…。しかも、数名います。) それだけ、悩みやトラウマが、深いんでしょうね。 それはわかっているんですが、練習を人一倍しているのに、 いつまでも、ガチガチなのは、こたえます。。 -- K (2009-02-11 21 31 11) 私も5~6回通っていますが、全く同じ思い、経験をしています。 年も重ねているし、まだまだ呼吸が足りないと割り切って励んではいますが、 最近は現状維持どころか、行くたびに硬くなっているみたいです・・・ -- ブレジネフドクトリン (2009-02-12 08 58 45) ある時に一気に緩む時がありました。僕もガチガチタイプでしたけど、 ある時にすごく深いとしか言いようがないトランス状態になった後は、 すごく体が緩まった気がしました。 ある時を境に脳も体のゆるみを記憶するとうまくいったので、 今は我慢のしどころですよ。肩胛骨の部分にすごく指が入るように はなりました。 ある思考、考え方も体を一瞬にして固くしてしまう みたいですよ。任せる思考、どうでもいい、なるようになれという思考が 体をゆるめる方向に持っていくそうです。 -- 1234 (2009-02-12 13 56 29) 通い中さん、コメントありがとうございます。 CDを作成するための文章を書いているときから涙が止まりませんでした。 朝早くふっと目が覚めて涙があふれて泣いたこともありました。 文字だけでこれだけきているんだから、そうとうだと言われました。 そんなCDを必死で聞いて、心が悲鳴を上げました。 鬱状態になり、鬱へ移行したようです。 先生から薬を飲んで体をほぐしたほうがいいと言われました。 精神科へ行くのは嫌だったので、東洋医の元へ行き、薬をもらってきました。 会社も辞めることにしました。 CDを聞いて以来、はじめてほっとしています。 -- メイ (2009-02-12 19 02 19) もうすぐ先生に会えるのだが、そこまで自分がもつかわからない 最悪仕事がどうにもつまってどうしても抜けられず、会えないかも クビ覚悟で先生の所に行くか・・・ でもまだ身体が硬いから前進は期待できないし、 仮に元気づけてもらっても、現状はどうにもならないわけで こんな事書いてすいません -- ブレジネフドクトリン (2009-02-13 20 43 54) ブレジネフドクトリンさん、こんばんは。 まさに、私も、先生に会えるまで持つかどうか、 いつも考えています。 それに、体がとても硬いので、それほどの改善も期待できません。 重い症状の人たちは、本当につらいですよね。 いったい、いつまで会社に通えるのだろうか…。 ストレッチと呼吸をしても、いっこうにガチガチ。 若いうちに、岩波先生のところを知って、通える人は本当に幸せだと思う… -- K (2009-02-13 22 16 51) いい感じで症状が緩和していっています。 あがり症ですが、この前プレゼンで発表した時、あんまり 緊張していない自分がいました。 はじめる前は「失敗したらどうしよう」「失敗してもいいんだ」と 心の葛藤がありましたら、やってしまえばかなり普通にこなすことが できていました。 それからは自信が日ごとについてきて、プレゼンの予期不安も少なくなって います。心の余裕がすごく生まれるようになってきました。 考えていたって解決しないことをいつまで経っても考えて 悩みを強化してしまうのはもったいないと思います。 -- adapter (2009-02-14 13 33 44) 今は予備校に通っているのですが、人間関係が億劫になり、度々理由をつけては 休んでいます。呼吸は2~3時間以上こなしていますが、岩波先生の課題に 没頭してしまい、学校や習い事を疎かにしてしまわないか不安です。 ここで覚悟を決めようと思っても踏み出せません。 皆さんは何かスランプに陥った時、どうやって乗り越えましたか? 違う話題になってすみません。 -- 巣釜 (2009-02-14 16 17 02) スランプの時は、打ち消そうとしないで、そのままの不安や焦りの感情を 「なっていろ!」という感じで、一緒に生きていくぞと言う感じで過ごすようにしていました。 -- adapter (2009-02-14 16 30 13) そうしていくと、予期不安が非常に強かったのですが、 不安の量が次第に減っていきました。 スランプの時にどうしよう、きつい、つらいとうろたえるのは しょうがないですが、起きていることに今更がたがた騒いでも なくなるわけじゃなかったから、そういう考え方に切り換えていきました。 なれてくると、不安を受け流すことも出来るようになっていきました -- adapter (2009-02-14 16 32 29) 不安を受け流すというか、不安への覚悟ができたら、 自分も日々快調になりました。 不安が来ても「来い!」という気持でいると 不安はそれほどの不安でなくなっていくものでした。 -- 名無しさん (2009-02-14 19 26 06) 話を前に戻してしまい申し訳ありませんが、 私も先生に会うまで持つのだろうか?という不安をいつも抱いていました。 息が出来ないくらい辛くて、どうにかなるんじゃないかと思って 先生に電話したことがあります。 もし、人がそれほど怖くないようなら泳ぐといいですよ。 無理矢理でも体をほぐさないとどうにかなってしまいますから。 実際泳いでほっと出来ました。 おすすめです。 あと、会社は出来るだけ行った方がいいそうです。 辞めると行った後も、それで果たして良かったんだろうか?と考えています。 まだ、受理された訳じゃないから、いつ辞めれるのか疑問ですが。 -- メイ (2009-02-14 19 36 40) 適度な運動は精神の健康にも、体のゆるみにもいいですよね 自分もそれを欠かさず行っています。 精神的なハリがないと惰性に陥って、悩みに飲まれてしまう前例が あったので、よかったです。 -- 名無しさん (2009-02-15 14 11 42) 最近は特に悩みの量が減ってきたようです。 ここに書かれてあるアドバイスを実行したり、先生から言われたことを やったり、励んでいました。やればやるだけ効果も出ますね! -- R22 (2009-02-15 15 11 01) 頭部がガチガチです。効果的なストレッチはあるのでしょうか?同じような方、いらっしゃいますか? -- K (2009-02-15 22 58 07) 私は4回程通っていますが,1番ガチガチだと言われたほどです。深い感覚には程遠いですが,その手前まできていると言われました。仕事帰りにできるだけマッサージに行ったり,合間をみて自分で頭皮マッサージをしています。ホッカイロをして背中,肩を温めるだけでも,違ってくると思います。 -- ポン (2009-02-15 23 44 13) 体の固さと悩みの深さはもろにリンクしてますよね 自分を知らず知らずガードしてガチガチになってしまうんでしょうね -- R22 (2009-02-16 15 02 04) 弱音を吐かずに頑張るぞ! 最近そう思えてきています。 逆境さん、いらっしゃいです -- 名無しさん (2009-02-16 18 02 13) 最近になって調子が少し良くなったので何か挑戦しようと思います。 しかし、コンディションが完全に良くならないとダメでしょうか? 僕自身はコンディションを完全に治してからでないと やっていく自信がありません…どうしよう -- 巣釜 (2009-02-16 18 45 18) 集団も最初の数回はいい意味でインスパイアされるけど、自分は進歩がないまま、周りがどんどん良くなっていくのを みると、行くたびに「また今回もだめなんだろうな」「また他人がよくなっていくのを横目で見ているだけなんだろうな」 「俺は負け組」「ろくに呼吸も課題もやってこないで、ただ惰性でへらへらやってきている輩って感じだよな」 って思いのほうが強くなっていってしまいますね 自分なりにやりこんできた自信があるときにダメだったりすると、もうね、やっぱり考えが甘いんだよな、俺は良くならないんじゃないかとすら思うわ まあこんな思考回路してっからいつまでも身体も硬いままだし、落ち込んじゃうんだろうケドね -- ドミトリ (2009-02-17 00 11 51) 呼吸をやってきて、トランスの深さがそれほどでもないということもありました。 その時は無理に自分で入ろうとしたり、また駄目だったらどうしようという不安が 頭をよぎったために、瞬間的な体の固さが出てしまったからだそうです。 でも呼吸の成果は生きているといわれ続けていたので、あとはその思考だけでした。 トランスにダイレクトに入れた時に呼吸のやった量だけすごく深く入れるとは言われていました。 なので、結果を求めない心で望んだら、凄いとしかいいようがない感覚を始めて味わいました。 そうしたら、それから次から、どんどん意識が変容するようになり、呼吸の成果がそこで出てくれました。 あくまで私の経験ですが、呼吸はダムの水のように溜まっているので、あとは放出する機会があれば、きっと いきてきますよ。 -- 名無しさん (2009-02-17 02 42 31) 先生から教わったストレッチをきっちりこなしたら、結構時間かかりますよね すると呼吸をする時間が少なくなってしまいます 仕事で遅くなったときなんかはどちらも中途半端にしか出来なかったり、どちらかできなかったりします。 みなさんはどうしてますか?どちらか優先でやりますか? -- 名無しさん (2009-02-17 13 37 35) 呼吸優先でいいかと -- 名無しさん (2009-02-17 14 03 03) 呼吸を続けて1ヶ月間が経ちます。 1か月前は毎日に3~4時間以上を呼吸の時間に 費やしましたが、最近は呼吸をする事を惰性になりながらも やっています。 気分の低い状態でも真剣にやり続けた方はいますか? -- 巣釜 (2009-02-17 22 12 06) 呼吸よりむしろ 頭の力が抜ける、からっぽになる と言ったCDの暗示の方がミソのような気がしますが 如何でしょう。 -- 無為 (2009-02-18 02 35 45) 無為さん、確かにCDの暗示はよく頭の力が抜けたり、 よく体が緩むことはあります。 でも、呼吸はまだまだ半人前にも達してません。 何かコツがあるのでしょうか? -- 巣釜 (2009-02-18 18 44 20) ポンさんは、私と同じように、頭皮もガチガチなんですね。 自分も頭皮マッサージをしようとしますが、ガチガチすぎて、 つまめないし、ぜんぜん動かないです。 さすがに風呂場では、多少動くので、風呂場で頭皮をつまんだりしてますが…。 こんなんで、やわらかくなるんでしょうかね…。 -- K (2009-02-18 20 07 25) 呼吸法は、禅の境地と同じで「求めない」ことです。 でもしっかりと呼吸をすることだけはやるべきだと思います。 -- 名無しさん (2009-02-18 23 36 50) 気分が低い時でも、呼吸をやり続けました。 その覚悟が気分をのちのちに高揚させてくれたと思います。 気分が乗らない時こそ呼吸をやるということはつらいし、覚悟がいるだけに、 精神的に強くなったと思います。 気分が優れない時に何もしないのは誰でもできますが、 その逆は誰もができないわけだから。 -- 名無しさん (2009-02-18 23 39 16) おとといやっと岩波先生にめえるを送ることができて返事が帰ってきて即効電話しました。こんど集団に参加することになりました。予約がすごいと聞きましたが、いつ頃に予約をとることができますか? -- ぴーちゃん (2009-02-19 02 47 10) 先生が東京、大阪滞在中のときに一回か二回会える感じです。 一ヶ月ごとに移動していると思いますです。 -- 名無しさん (2009-02-19 18 30 26) 呼吸をしているときに雑念やいろんな悩み事がうかんできてしまいます。 どうすればいいでしょうか。 -- 名無しさん (2009-02-19 18 53 36) 雑念はあたりまえのように誰でも浮かんできます。 どうすればいいのかは、どっちにしても打ち消すことは出来ないのですから、 雑念や悩み事があっても受け流して(正面から立ち向かわない)やるしかないです。 静寂な環境や雑念ゼロなんてこの現代社会ではあり得ないこととあきらめるしかないです。 と私はその気持ちでやっています。 -- 名無しさん (2009-02-19 19 27 12) 行く度ごとに パワーを頂けるのだけれど 最終回も来るん だろうなぁ・・・と思うと 底抜けに 寂しい。 最後はどんな会話で終わるのか。もし もっと通いたいなら 追加料金など 必要だろうか。 -- 名無しさん (2009-02-19 22 16 23) 集団のほうが長く時間をとるらしいですがだいたいの時間をおしえてください。あと親と一緒に行くんですけど親ゎ別室で待機することになるんですかね? 質問ばかりすいません^^; -- ぴーちゃん (2009-02-20 12 38 18) >ぴーちゃん 基本お昼から始まって、先生が解散というまでいられる 帰りの便の関係ですぐ帰っちゃう人もいれば、深夜までずっといる人もいる 私の知る限り別室なんかないから、親子連れの人も集団では一緒の部屋にいましたよ -- 名無しさん (2009-02-20 13 39 06) >行く度ごとに パワーを頂けるのだけれど 最終回も来るん だろうなぁ・・・と思うと 底抜けに 寂しい。 その気持ちよくわかるな~ その日はいつか来てしまうんでしょうね でも先生の所では「人生の武器」もたくさん教えてもらっているから、 よりパワーアップするために通い続けたい。 悩みの方はかなり改善しているから、今度は自分を高めて、 自信と覚悟を誰よりももてる人間になりたいです そのためには先生の存在、プログラムは自分にとって すごく必要だしモチベーションも毎回すごくあがるから やり続けたいな~ -- 1234 (2009-02-20 14 11 26) 身体を反らし気味にして強い呼吸を数回 繰り返した後 更に かなり強く反らして(強力に のけぞって) 強く息を吸い込んで止めたら 数秒後に 頭が真っ白になって 意識が飛んだ。 それ以来 強い呼吸の病みつき。超気持ちいい。気分爽快。 これが 変性意識 なのかなぁ -- 名無しさん (2009-02-20 21 29 18) 意識が日常のそれと違っていたら、変性意識ですよ 変性意識にもいろいろあるけど -- 名無しさん (2009-02-20 23 46 40) 自分もまねして、体をそらし気味にして、強い呼吸と息をとめるを 数回しましたが、意識は飛びませんでした。 意識が飛び、変性意識になりませんでした。 変性意識にもっていける人と、もっていけない人は 何が違うんでしょうか? 先生のところに通い、呼吸を練習しはじめて、半年くらいたちますが… -- 名無しさん (2009-02-21 14 08 14) 悩みのある人には難しいですが、見返りを求めずに馬鹿になってやることだとおもいます。意識したり、結果ばかり追うと変性状態に入るのは難しかったです。 -- ドラえもん (2009-02-21 16 41 23) 良くなられた方に質問です。 私は先生のところに通いだいたい、1年ぐらいになりました。徐々に進んでいるものの、進歩が遅いかもしれません。自分は会社員ですがそのため、時間的に呼吸をすることが困難です。平日はほとんどできない状態です。 このままだと何も変わらないのではないだろうかと思ったときもありました。そのため、思い切って会社を辞めて、呼吸に専念しようと考えました。家族もいるので悩むところです。金銭的なリスクは大きいですが、今後の自分に為であれば今のリスクなんて小さいとおもっていますが、やはり迷っているところです。それか、今までどおり会社に勤めながらでも、こつこつやっていくことがいいのでしょうか?将来のこともあるのでどちらかに決断しようと思っています。 克服された方で会社員、社会人だった方アドバイスをお願いします。答えは最終的に自分で出さなくてはいけませんが、今真剣に迷っていますのでよろしくおねがいします。 -- ROK (2009-02-21 17 01 17) 「結果を求めない」「一心不乱にやる」「馬鹿になる」「知恵、小細工を使わない」 は鉄則です。 呼吸法はものすごく奥深い世界です。 悩み解決もそれらの要素必ず必要です。 知恵でわかるのではなく、感覚でつかめることが出来たら、 神経症も良くなっていきました。 悩み解決だけじゃなく、人生の成功の法則も同じです。 上の方で何人か似たようなことを書いていますが、 そういうものだと思います。 -- 名無しさん (2009-02-21 17 10 50) ROKさん 会社を辞めてでも呼吸法をやるという気持ちがあれば、 矛盾かもしれませんが、会社・仕事以外のわずかな時間でも呼吸に「熱」が入りますよ。 その気持ちさえあれば、時間が少なくとも効果が出てくると思います。 逆に時間がありすぎると、いつでも呼吸が出来るからいいやという気持ちになる可能性も高いです。 もちろん家族もいることなので、かなりの覚悟を持っていると思いますが。 自分も社会人です。会社に行きつつも毎日欠かさずやっていました。 もし出来ない時は昼休みにやっていました。 まずは精一杯会社に通いながらもやってみて、それで限界だと感じられたら 考えればいいと思います。 -- ↑と同一人物 (2009-02-21 18 37 48) お返事ありがとうございます。集団に参加させていただいてとても勉強になりました。回りの頑張っている感じがとても伝わりましたこれから頑張って行きたいです^^ -- ぴーちゃん (2009-02-21 19 58 45) >名無しさん お返事ありがとうございました。今は迷いもありますが、仕事を続けながら精一杯やってみます。家族も呼吸をしている私を認識してくれていますし。とにかくやれるだけのことはやります!少し、重荷がとれました。また今日から新たな気持ちで呼吸にとりくんでいきます。見返りや結果は求めずたんたんとこなそうと思います。 -- ROK (2009-02-22 17 00 56) 先生に感謝してます。感謝にたえません -- 名無しさん (2009-02-23 01 11 43) 高校(全日から通信)に通っている方に質問です。 いろいろ訳あって普通の高校に行けず、底辺高校に通っているのですが 今すぐにでも辞めたい気持ちが募っています。 1ヶ月間はずっとその悩みで頭を抱えていました。 やはり他の高校へ転入すべきなのでしょうか? -- 巣釜 (2009-02-24 09 38 54) 岩波先生の所へは通って二年半位がたちます。 最初はスランプ続きでしたがある時期からストレッチ、ヨガ、呼吸法、暗示を毎日ちょっとづつやって来て今は以前と比べものにならない位体も心も軽くなって来ています☆ やはり、バカになる事は一番の条件で、ただやる、聞く、呼吸をするという上も下もない考えで取り組んだらだいぶ変わって来ました。 来月は久しぶりの集団。 みんなかなり気合いが入っているみたいなんで俺もバカになってやりきる気持ちでいこう!! -- よぴ (2009-02-24 17 20 54) 一生懸命強い呼吸をする事も必要だとは思うけれど 少し疲れてきて力まなくなった時の強い呼吸の方が 意識が飛ぶ。先生に施術して貰った時のような爽快感 自分がどこに居るのか 判らなくなる位・・・ -- 名無しさん (2009-02-24 23 24 25) いい意味で「たんたんとやる」が出来てくるからかもしれませんね。 決してだらけてやることじゃなく、かといって力みすぎず。 中庸になるからかも -- 名無しさん (2009-02-25 17 42 42) 夕方頃、先生に電話を掛けたのですが「割り切り」が必要だと 言いましたがあまり自覚ができません。 割り切りはどういう事なのでしょうか? -- 巣釜 (2009-02-25 18 32 08) 「なぜだ」「どうしてだ」「意味があるのか」 じゃなく「ただやる」事 それこそ割り切りなのでは? -- 名無しさん (2009-02-25 18 51 23) 名無しさん、割り切りでは呼吸に限らず行動をする時でも 必要なのでしょうか? -- 巣釜 (2009-02-25 19 15 28) 強い呼吸で意識が飛んだ後は 何も考えられなくなる。 割り切ろうと考える必要すら無い位に。 結果、こだわらず無心に行動し易くなる。 -- 名無しさん (2009-02-25 19 28 00) 結局メンヘラは無意味な思考を重ねすぎる それが 意識が飛んで 脳内が「凪」状態になる事により 無駄な思考をしなくなる。楽。楽。楽。 なんと自分は 馬鹿な事を一々グルグル考えてたかが分かる。 -- 名無しさん (2009-02-25 19 31 53) とにかく呼吸に励むしかないね 現実は確かに苦しいけど、いずれなにかが見えてくるはず -- 名無しさん (2009-02-25 19 41 30) 掲示板 体験・感想・コメント その4に行く (宣伝行為・スパム行為・個人情報表記・公序良俗に反する書き込みは禁止します) 上へ
https://w.atwiki.jp/frostar/pages/28.html
自分で作った関数や意外と知らない関数とかのメモ。 プログラムの基本を理解している人向けなので、いろいろ説明は省いてます。 こういう処理はどうやるの?とかあればコメントくれれば分かる範囲内で答えます。 なんの説明もなしに標準関数とか使ってる時があるので、わからないものは調べてねってことで。 参考になるサイト・書籍 猫でもわかるシリーズ プログラム初心者でもわかりやすく書かれています。 特にWindowsプログラミングを一通りやるといろいろ作れるようになると思います。 猫でもわかるのHPにも一通りプログラミング講座があって、私は結構そこを参考にさせてもらっています。 その他、リンクしているサイトを主に参考にさせていただいています。