============= u-c-f5 =================================== $$b //ビジネス財務データセクション $f //処理対象企業フラグコマンド ...................... Jエナジー，日石,昭和シェル，三菱石,コスモ,ゼネラル石の ==..(7004)48,661,662,664,667,1615 //★各社を日経会社コード順に指示 $n //企業名コマンド lst, //フラグｇの企業のリスト出力 :n1, //企業名の最初の漢字２文字 :n2, // 次の漢字２文字 :n3, // その次の漢字２文字 $p //原数値プリントコマンド .... 【新項番3001】 売上高・営業収益 .... 【新項番3006】 営業利益 .... 【新項番3008】 受取利息・割引料・有価証券利息 .... 【新項番3009】 受取配当金 .... 【新項番3016】 支払利息・割引料 .... 【新項番3058】 当期利益 .... 【新項番5056】 従業員数（単位：人） ,3001,3006,3008,3009,3016,3058,5056 //項番指示（最初の30社までプリント） $r //期間限定コマンド 新期間指定（西暦年４桁表記） 1996.04,1997.03 //★1996年4月から1997年3月までの1996年度に限定 $c //クロスセクションコマンド flw,3001,,売上高 flw,3006,,営業利益 flw,3058,,当期利益 stk,2125,,株主資本 ========================== $$u //ユーザデータセクション $c //クロスセクション属性指示コマンド 0001,0006,スタンド数 //★ケース範囲,変量名;単位 $d //ユーザデータ内容入力コマンド ctype //データ内容パラメータ＜ケースごと記述タイプ＞ 6232 //★Jエナジー ガソリンスタンド数1997年３月末 10018 //★日石 出所：日本経済新聞1998.6.3 6937 //★昭和シェル 4680 //★三菱石 7048 //★コスモ 2382 //★ゼネラル石 $l //入力変量リスト ============================ $$v //変量分析セクション $a //変量記号割当コマンド N,:n1, //最初の企業名漢字２文字 A,:n2, //次の企業名漢字２文字 M,:n3, //その次の企業名漢字２文字 s,売上高 p,営業利益 i,当期利益 e,株主資本 c,スタンド数 $t //変数変換コマンド =pr*(N,A,M,s,p,i,e,c) //数値プリント h=f>=(e)100 //株主資本が100百万円以上のフラグh r=(i/e*h)*100 //以上の条件hを満たすケースのROE F=(1,-1,log100) //関数ベクトルF P=:ci(s) //ケース識別文字系列 =pr*(N,A,M,r,P) //数値プリント ============================= $$g //グラフセクション $p //プロットコマンド r,c,s //ROE(r)，スタンド数(c)，売上高(s) $c //散布図コマンド r,c,*,P //ROE(r)，スタンド数(c)，回帰線(*)，ケース識別文字(P) $3 //３次元図コマンド r*i*e*P,F,* //縦軸r(対数*)，横軸i(対数*),奥行軸e(対数*)，印字(P)，重合せ保存(*) r,i,e,P,* //縦軸r，横軸i,奥行軸e，印字(P)，重ね合せ保存(*) //重ね合せ図 ======================= 終了セクション $$