============== c-f-f5 =========================== ========== 連結決算企業 外部フラグ#1 $$c //連結財務データセクション $r //期間限定 新期間指定（西暦年４桁表記） 2002.04,2003.03 //★2002年4月から2003年3月までの2002年度に限定 $f //フラグ・コマンド ==..(7103)05041,05042 //★業種選択 =w#1 //外部フラグ#1書き込み ========== 単独決算企業 外部フラグ#1 $$b //ビジネス財務（単独決算）データセクション $r //期間限定コマンド 新期間指定（西暦年４桁表記） 2002.04,2003.03 //★2002年4月から2003年3月までの2002年度に限定 $f //フラグ・コマンド ==..(7103)05041,05042 //★業種選択 =r#1 // 外部フラグ#1（連結決算企業）読み込み =:*.(b,e) // 単独決算と連結決算の共通企業 =w#1 // 共通企業の外部フラグ#1 書き込み ============ 連結決算データ入力 ===== $$c //連結財務データセクション $r //期間限定コマンド 新期間指定（西暦年４桁表記） 2002.04,2003.03 //★2002年4月から2003年3月までの2002年度に限定 $f //フラグ・コマンド =r#1 // 共通企業の外部フラグ#1 読み込み $n //企業名コマンド lst, :n1,,$$c :n2,,$$c :n3,,$$c $c //クロスセクション・コマンド (パラメータ4カラム*は欠測値ゼロ認定) flw*3058,,$$c net profit //連結当期利益 stk*2125,,$$c shareholders' equity //連結株主資本（資本合計） stk,2144,,$$c total assets //連結総資本（負債・少数株主持分・資本合計） ====== $$v //変量分析セクション $a //変量記号割当コマンド n,:n1,,$$c a,:n2,,$$c m,:n3,,$$c r,$$c net profit e,$$c shareholders' equity k,$$c total assets ================ 単独決算データ入力 ====== $$b //ビジネス財務（単独決算）データセクション $r //期間限定コマンド 新期間指定（西暦年４桁表記） 2002.04,2003.03 //★2002年4月から2003年3月までの2002年度に限定 $f //フラグ・コマンド =r#1 // 共通企業の外部フラグ#1 読み込み $n //企業名コマンド lst, :n1,,$$b :n2,,$$b :n3,,$$b $c //クロスセクション・コマンド (パラメータ4カラム*は欠測値ゼロ認定) flw*3058,,$$b net profit //単独当期利益 stk*2125,,$$b shareholders' equity //単独株主資本（資本合計） stk,2144,,$$b total assets //単独総資本（負債・資本合計） ====== $$v //変量分析セクション $a //変量記号割当 N,:n1,,$$b A,:n2,,$$b M,:n3,,$$b R,$$b net profit E,$$b shareholders' equity K,$$b total assets ============ 連結決算と単独決算の比較分析 $t //変数変換コマンド ---------- 連結決算 ---------- d=f.>(e)0 //連結株主資本プラスのフラグ（連結株主資本≦0を欠落値に） z=(r/(d*e)*100) //連結ROE 株主資本利益率 y=(r/k*100) //連結ROA 総資本利益率 h=((d*e)/k) //連結株主資本比率 ......... p=:ci(z) //散布点識別文字変量 f=(1,-1) //関数 logz=logy-logh = [1,-1][logy,logh]' の係数ベクトル =pr*(n,a,m,r,e,k,z,y,h) //連結決算データプリント ---------- 単独決算 ---------- D=f.>(E)0 //連結株主資本プラスのフラグ（連結株主資本≦0を欠落値に） Z=(R/(D*E)*100) //単独ROE 株主資本利益率 Y=(R/K*100) //単独ROA 総資本利益率 H=((D*E)/K) //単独株主資本比率 ......... P=:ci(Z) //散布点識別文字変量 F=(1,-1) //関数 logZ=logY-logH = [1,-1][logY,logH]' の係数ベクトル =pr*(N,A,M,R,E,K,Z,Y,H) //単独決算データプリント ---------- 連単倍率 ---------- t=f.>(r)0 //連結当期利益プラスのフラグ(連結当期利益≦0を欠落値に） T=f.>(R)0 //単独当期利益プラスのフラグ(単独当期利益≦0を欠落値に） q=(t*r)/(T*R) //当期利益の連単倍率（連・単当期利益≦0を欠落値に） =pr*(n,a,m,r,R,q,P) //連単データプリント =============== グラフセクション $$g $z //ゼロ軸設定 zyZY $d //表示範囲 all $p //プロット zy,h //連結 ZY,H //単独 q,rR //連（r）単（R）の当期利益と倍率（q） $3 //３次元図 z*y*h*p,f,* //連結，対数の関数の曲面 z,y,h,p,* //連結，素散布点 //連結，重ね合せ図 $3 Z*Y*H*P,F,* //単独，対数の関数の曲面 Z,Y,H,P,* //単独，素散布点 //単独，重ね合せ図 ================ 終了セクション $$ //終了セクション