============== c-f-f5 ===========================
========== 連結決算企業 外部フラグ#1
$$c //連結財務データセクション
$r //期間限定 新期間指定(西暦年4桁表記)
2002.04,2003.03 //★2002年4月から2003年3月までの2002年度に限定
$f //フラグ・コマンド
==..(7103)05041,05042 //★業種選択
=w#1 //外部フラグ#1書き込み
========== 単独決算企業 外部フラグ#1
$$b //ビジネス財務(単独決算)データセクション
$r //期間限定コマンド 新期間指定(西暦年4桁表記)
2002.04,2003.03 //★2002年4月から2003年3月までの2002年度に限定
$f //フラグ・コマンド
==..(7103)05041,05042 //★業種選択
=r#1 // 外部フラグ#1(連結決算企業)読み込み
=:*.(b,e) // 単独決算と連結決算の共通企業
=w#1 // 共通企業の外部フラグ#1 書き込み
============ 連結決算データ入力 =====
$$c //連結財務データセクション
$r //期間限定コマンド 新期間指定(西暦年4桁表記)
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 //期間限定コマンド 新期間指定(西暦年4桁表記)
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 //3次元図
z*y*h*p,f,* //連結,対数の関数の曲面
z,y,h,p,* //連結,素散布点
//連結,重ね合せ図
$3
Z*Y*H*P,F,* //単独,対数の関数の曲面
Z,Y,H,P,* //単独,素散布点
//単独,重ね合せ図
================ 終了セクション
$$ //終了セクション