============= c-t-f3 ================================ $$c // 連結財務データセクション $r // 期間限定コマンド 9004,9103 //★1990年４月から1991年３月 $f // 処理対象企業フラグコマンド ==..(7103)41401,41402 //★業種が大手建設と中堅建設にフラグb（1990年度の決算所在企業） $r // 期間限定コマンド 0004,0103 //★2000年４月から2001年３月 $f // 処理対象企業フラグコマンド ==..(7103)41401,41402 //★業種が大手建設と中堅建設にフラグe（2000年度の決算所在企業） =:*.(b,e) // フラグbとフラグeの共通企業（1990年度と2000年度の両決算所在企業） $n // 企業名コマンド lst, // フラグｇの企業のリスト出力 $r // 期間限定コマンド // 期間指定解除（全期間に戻す） $p // 原数値プリントコマンド .... 【新項番3001】 売上高・営業収益 .... 【新項番3002】 売上原価・営業原価 .... 【新項番2144】 負債・少数株主持分・資本合計、単独：負債・資本合計 .... 【新項番3006】 営業利益 .... 【新項番3008】 受取利息・割引料・有価証券利息 .... 【新項番3009】 受取配当金 .... 【新項番3016】 支払利息・割引料 .... 【新項番3058】 当期利益 .... 【新項番5056】 従業員数（単位：人） .... 【新項番1026】 連結子会社数（単位：社） ,3001,3002,2144,3006,3008,3009,3016,3058,5056,1026 // 項番指示（最初の30社までプリント） $r //期間限定コマンド 集計会社数の揃う期間に限定 9103,0012 //★1991年3月〜2000年12月（当初は1990年4月〜2001年3月までを指示して実行） $t // 時系列作成コマンド &fl,3001,,sales // 連結売上高 &fl,3002,,cost of goods sold // 連結売上原価 &st,2144,,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 // 月次を四半期に１月を始点として３ヶ月毎の平均をとって編集 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,xy // 連結売上高原価率ｒ，別スケールで連結売上高ｘと連結売上原価ｙ u // 連結総資本回転率u u,xz // 連結総資本回転率u，別スケールで連結売上高ｘと連結総資本z r,u // 連結売上高原価率ｒ，別スケールで連結総資本回転率u $c // 散布図コマンド y,x,*,P // 縦軸ｙ変量，横軸ｘ変量，回帰線表示＊，個体識別P x,z,*,P // 縦軸ｘ変量，横軸ｚ変量，回帰線表示＊，個体識別P r,u,*,P // 縦軸ｒ変量，横軸ｕ変量，回帰線表示＊，個体識別P $3 // ３次元図コマンド y,x,z,P,F // 縦軸ｙ変量，横軸ｘ変量，奥行軸z変量，個体識別P，関数F（回帰平面） ==================== 終了セクション $$