============= c-t-f3.txt $$c //連結財務データセクション $r //期間限定コマンド 8504,8603 //1985年4月から1986年3月 $f //処理対象企業フラグコマンド ==..(201)41401,41402 //業種が大手建設と中堅建設にフラグb(1985年度の決算所在企業) $r //期間限定コマンド 9604,9703 //1996年4月から1997年3月 $f //処理対象企業フラグコマンド ==..(201)41401,41402 //業種が大手建設と中堅建設にフラグe(1996年度の決算所在企業) =:*.(b,e) //フラグbとフラグeの共通企業(1985年度と1996年度の両決算所在企業) $n //企業名コマンド lst, //フラグgの企業のリスト出力 $r //期間限定コマンド //期間指定解除(全期間に戻す) $p //原数値プリントコマンド ,055,056,054,059,061,062,066,086,107,108 //項番指示(最初の30社までプリント) $r //期間限定コマンド 8504,9610 //1985年4月から1996年10月(当初は1997年3月までを指示し,後で集計会社数の揃っている期間に変更) $t //時系列作成コマンド &fl,055,,sales //連結売上高 &fl,056,,cost of goods sold //連結売上原価 &st,054,,total liability & net worth //連結総資本 $l //入力変量名リストコマンド =============== 変量分析セクション $$v $a //変量記号割当コマンド x,sales y,cost of goods sold z,total liability & net worth $t //変数変換コマンド x=&.a(x)4,1 //月次を四半期に1月を始点として3ヶ月毎の平均をとって編集 y=&.a(y)4,1 // 「4,1」 「&.a」 z=&.a(z)4,1 r=(y/x*100) //連結売上高原価率 u=(x/z) //連結総資本回転率 =pr*(x,y,z,r,u) //数値プリント P=:ci(x) //個体(年度)識別文字系列 $r //回帰コマンド F,@"*,y=(x,z) //回帰係数ベクトルF =========== グラフセクション $$g $d //表示範囲コマンド all //全期間 $p //プロットコマンド r //連結売上高原価率r r,xy //連結売上高原価率r,別スケールで連結売上高xと連結売上原価y u //連結総資本回転率u u,xz //連結総資本回転率u,別スケールで連結売上高xと連結総資本z r,u //連結売上高原価率r,別スケールで連結総資本回転率u $c //散布図コマンド y,x,*,P //縦軸y変量,横軸x変量,回帰線表示*,個体識別P x,z,*,P //縦軸x変量,横軸z変量,回帰線表示*,個体識別P r,u,*,P //縦軸r変量,横軸u変量,回帰線表示*,個体識別P $3 //3次元図コマンド y,x,z,P,F //縦軸y変量,横軸x変量,奥行軸z変量,個体識別P,関数F(回帰平面) ==================== 終了セクション $$