=============== skylineRATIO-trans-fatty-acids-consume-kobe-past ====== ==== 神戸市家計世帯一人当たり主要食品トランス脂肪酸摂取量の ==== 2009年の対基準年(2000年）比のスカイライン図・扇形散布図 ========================================================================== ================== $$u // ユーザデータ・セクション ---------------------　2009年分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0012.00,aaa // ケース始点,終点番号 ,★第１系列名 ,bbb // 空白で同一ケース範囲,★第２系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 8282 0.163 10071 0.204 674 0.128 686 0.128 3492 0.521 31070 0.091 161 0.024 212 1.951 936 0.826 2591 1.395 634 7.004 1309 1.237 ---------------------　2000年分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0012.00,AAA // ケース始点,終点番号 ,★第３系列名 ,BBB // 空白で同一ケース範囲,★第４系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 10127 0.163 7189 0.204 0.128 1706 0.128 4100 0.521 40677 0.091 165 0.024 250 1.951 925 0.826 2517 1.395 827 7.004 1648 1.237 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て x,aaa // 2009年購入数量 s,bbb // 　　　　含有率％ X,AAA //　2000年購入数量 S,BBB // 　　　　含有率％ 【実際には含有率Sはsと同じ】 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 ----------------- 2009年のカップ麺と即席麺を合算　【合算しない場合は次の３行をコメントにする】 a=@."(x)3 // ★ 2009年のカップ麺（3番目のケース）の数値のみのスカラー変数 a d=(0,0,-1,1,0,0,0,0,0,0,0,0) // ★ 2009年のカップ麺計数を削除して即席麺計数に加算するダミー変数 x=(x+d*a) // ★ 2009年のカップ麺計数を削除して即席麺計数に加算を実行 ----------------- y=(x*(s/100)) // 分子 　2009年摂取量 = 2009年購入数量 * （含有率％ / 100） Y=(X*(S/100)) // 分母 　2000年摂取量 = 2000年購入数量 * （含有率％ / 100） k=(y/Y*100) // 対基準年(2000年)比　％ ................... P=:ci(y) // 個体識別文字列P作成 =pr*(x,y,s,X,Y,k,P) // 数値プリント .................... q=cum(Y) // 分母変量Yの累和 q<i>=Y<1>+Y<2>+...+Y<i-1>+Y<i> r=(q-Y) // 直前までの累和 r<i>=Y<1>+Y<2>+...+Y<i-1> =q<i>-Y<i> .................... h=(100) // ★ h 対基準年比 100％　　 .=(0,h) // スカイライン図上の対基準年比 100％の横線 y=0*x+h の右辺係数の関数「.」 +=(h/100,0) // 扇形散布図上の対基準年比( h％ / 100)斜線 y=(h/100)*x+0 の右辺係数の関数「+」 z=(0*y) // すべてゼロの数値の変量zを作成（扇形散布図の原点に利用） ---------------- $r // 回帰分析 ,run,y=(Y) // yを被説明（従属）変数とし，Yを説明（独立）変数とする回帰 =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） k,001 // 変量kの目盛りを細かく1ポイントごとに y,001 $z // ゼロ軸表示 kyY // 変量k,y,Yのゼロ軸表示 $p // プロット yY,k // 変量y Y,別スケールでk ---------------------------------- $3 // ３次元図　スカイライン図【2009年の対2000年比】分母：2000年摂取量 k,q, ,P,.,* // 縦軸k,横軸q,奥行軸なし,個体識別P,関数.,合成用保存* k,r, ,P,* // 縦軸k,横軸r,奥行軸なし,個体識別P,合成用保存* // 合成 比率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 y,Y, ,P,+,* // 縦軸y,横軸Y,奥行軸なし,個体識別P,関数+,合成用保存* 【2009年・2000年摂取量】 z,z, ,P,* // 縦軸z,横軸z,奥行軸なし,個体識別P,合成用保存 【原点】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション