============= c-c-f3.txt $$c //連結財務データセクション $r //期間限定コマンド 9604,9703 //1996年4月から1997年3月 $f //処理対象企業フラグコマンド ==..(201)05041,05042 //業種がパルプ・紙にフラグq ==..(099)-999999999 //連結減価償却実施額(項番099)が欠落値(-999999999)の企業にフラグL =:-.(q,L) //フラグqからフラグLの企業群を除いた企業群にフラグg =:*.(q,L) //フラグqとフラグLの共通集合の企業群にフラグm $n //企業名コマンド lst, //フラグg(分析対象となる)企業一覧出力 lst, //フラグm(分析から外れた)企業一覧出力 :n1, //フラグgの企業名の最初の漢字2文字 :n2, //フラグgの企業名の次の漢字2文字 :n3, //フラグgの企業名のその次の漢字2文字 $p //原数値プリントコマンド ,055,086,066,099,012,036,107,115 $c //クロスセクション作成コマンド flw,055,,sales //連結売上高 flw,086,,net income //連結当期利益 flw*066,,interest cost //連結支払利息・割引料(4カラム目の*は欠測値をゼロに置換) flw,099,,depreciation //連結減価償却実施額 ============== 変量分析セクション $$v $a //変量記号割当コマンド n,:n1, a,:n2, m,:n3, s,sales //連結売上高 e,net income //連結当期利益 i,interest cost //連結支払利息・割引料 d,depreciation //連結減価償却実施額 $d //表示範囲指示コマンド all //全範囲 $t //変数変換コマンド c=(e+i+d) //連結オペレーティング・キャッシュフロー x=(c/s*100) //連結売上高キャシュフロー率 P=:ci(x) //散布点識別文字変量 =pr*(n,a,m,s,c,x,P) //数値プリント =pr*(n,a,m,e,i,d) //数値プリント F=(-1,1,log100) //関数log(x)= -log(s)+log(c)+log100 =[-1,1,log100][log(s),log(c),1]'の係数ベクトル ============== グラフセクション $$g $d //表示範囲指示コマンド all //全範囲 $p //プロットコマンド x,s //連結売上高キャシュフロー率xと連結売上高sを別スケール ceid //連結キャシュフローc,連結当期利益e,連結支払利息・割引料i,連結減価償却実施額dを同一スケール $c //散布(相関)図コマンド c,s,*,P //縦軸c,横軸s,回帰線*,印字変量P $3 //3次元図コマンド x*s*c*P,F,* //縦軸x(対数*),横軸s(対数*),奥行軸c(対数*),印字P,関数F,重ね合せ用保存* x,s,c,P,* //縦軸x,横軸s,奥行軸c,印字P,重ね合せ用保存* //重ね合せ図 ============== 終了セクション $$