/*
	逆正規分布表を作成する
        org.  hizo9704.SAS by K.T. Ver1.0  1997/11/27（木）21:49:55
*/

OPTIONS LS=80 PS=54; * 80桁,54行で印字(B5用紙用);

DATA d1;
	file 'output.lst';
	head1=' S '; tate='|';
	z=0; i=0;
	PUT 26*' '@; PUT 'ＳＡＳによる逆正規分布表'; PUT;
	ARRAY x{10} w1 - w10;

	/* 見出し部分 */
	DO i=0 TO 9 BY 1; x{i+1}=i; END;
	PUT head1 5.0  tate 1.0 @;
	DO i=1 to 10 BY 1; PUT x{i} 7.0 @; END; PUT;
	PUT 78*'-';

	/* 数表本体 */
	DO z=0.5 TO 0.99 BY 0.01;
		DO i=0 TO 9 BY 1; x{i+1}=PROBIT(z+i/1000); END;
		PUT z 5.2  tate 1.0 '  '@ ;
		DO i=1 to 10 BY 1; PUT x{i} 7.4 @; END; PUT;
		END;
	PUT 78*'-'; PUT;
	PUT 'Sを−∞からZまでに囲まれた面積の値とする。';
	PUT 'S=0.975に対するZは,左の見出しの0.97から右へ行き,上の見出しの';
	PUT '5から下がってきたところの値を読み,1.960と知る。';
RUN;