==== skyline3-trans-fatty-acids-consume-kobe-tokyo-toyama ============= ==== 2009年家計世帯一人当たり主要食品トランス脂肪酸 ==== スカイライン図・扇形散布図の神戸市・東京都区部・富山市の比較 ========================================================================== ================== $$u // ユーザデータ・セクション ---------------------　神戸市分 ------------------------ $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 ---------------------　東京都区部分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0012.00,AAA // ケース始点,終点番号 ,★第３系列名 ,BBB // 空白で同一ケース範囲,★第４系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 6817 0.163 7507 0.204 888 0.128 657 0.128 2143 0.521 30699 0.091 182 0.024 233 1.951 1059 0.826 2196 1.395 428 7.004 1503 1.237 ---------------------　富山市分 ------------------------ $c // クロスセクションデータ属性コマンド 0001.00,0012.00,?AA // ケース始点,終点番号 ,★第３系列名 ,?BB // 空白で同一ケース範囲,★第４系列名 $d // データ入力指示コマンド ctype // ケース毎に読むタイプ ------- ユーザ自身が文字・数値データを ------- テキストファイルまたはExcelシートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 5960 0.163 6255 0.204 1114 0.128 973 0.128 1858 0.521 28308 0.091 118 0.024 165 1.951 799 0.826 2099 1.395 389 7.004 1151 1.237 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て x,aaa // 分母　神戸市の購入数量 s,bbb // 比率　含有率％ X,AAA // 分母　東京都区部の購入数量 S,BBB // 比率　含有率％ 【実際には含有率Sはsと同じ】 ?X,?AA // 分母　富山市の購入数量 ?S,?BB // 比率　含有率％ 【実際には含有率?Sはsと同じ】 ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 y=(x*(s/100)) // 分子 　神戸市の摂取量 = 神戸市の購入数量 * （含有率％ / 100） Y=(X*(S/100)) // 分子 　東京都区部の摂取量 = 東京都区部の購入数量 * （含有率％ / 100） ?Y=(?X*(?S/100)) // 分子 　富山市の摂取量 = 富山市の購入数量 * （含有率％ / 100） ................... p=:ci(y) // 個体識別文字列P作成 =pr*(x,y,s,X,Y,?X,?Y,p) // 数値プリント .................... i=@.a(x) //　神戸市購入数量xの期間中の平均値のスカラーi（区切りに利用） I=:ci(i)* //　スカラーiに文字 "*" の文字列変量I　作成（スカイライン区切りに利用） ?x=(x,i,X,i,?X) //　購入数量　神戸市分x＋スカラーi＋東京分X＋スカラーi＋富山市?X の連結変量?x ?y=(y,0,Y,0,?Y) //　摂取量　 神戸市分y＋数値0＋東京分Y＋数値0＋富山市分?Y の連結変量?y ?s=(s,0,S,0,?S) //　含有率 神戸市分s＋数値0＋東京分S＋数値0＋富山市分?S の連結変量?s ?p=(p,I,p,I,p) //　文字列変量 神戸市分p＋文字列I＋東京分p＋文字列I＋富山市分p の連結変量?p q=cum(?x) // 分母変量?xの累和 q<i>=?x<1>+?x<2>+...+?x<i-1>+?x<i> r=(q-?x) // 直前までの累和 r<i>=?x<1>+?x<2>+...+?x<i-1> =q<i>-?x<i> .................... h=(1.0) // ★ h 目安となる含有率1.0％　つまり0.01　　 .=(0,h) // スカイライン図上の含有率1.0％の横線 y=0*x+h の右辺係数の関数「.」 +=(h/100,0) // 扇形散布図上の比率( h％ / 100)斜線 y=(h/100)*x+0 の右辺係数の関数「+」 z=(0*y) // すべてゼロの数値の変量zを作成（扇形散布図の原点に利用） ---------------- $r // 回帰分析 ,run,y=(x) // yを被説明（従属）変数とし，xを説明（独立）変数とする回帰 ,run,Y=(X) // Yを被説明（従属）変数とし，Xを説明（独立）変数とする回帰 ,run,?Y=(?X) // ?Yを被説明（従属）変数とし，?Xを説明（独立）変数とする回帰 =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,001 // 変量sの目盛りを細かく1ポイントごとに y,001 ?s,001 $z // ゼロ軸表示 syx?s // 変量s,y,x,?sのゼロ軸表示 $p // プロット xX?X,yY?Y,s // 変量x X,?X別スケールでy Y,?Y別スケールでs ---------------------------------- $3 // ３次元図　スカイライン図 ?s,q, ,?p,.,* // 縦軸?s,横軸q,奥行軸なし,個体識別?p,関数.,合成用保存* ?s,r, ,?p,* // 縦軸?s,横軸r,奥行軸なし,個体識別?p,合成用保存* // 合成 比率スカイライン図（リンク面描画，３次元図圧縮） ........ $3 // ３次元図　扇形散布図 y,x, ,p,+,* // 縦軸y,横軸x,奥行軸なし,個体識別p,関数+,合成用保存* 【神戸市の分】 z,z, ,p,* // 縦軸z,横軸z,奥行軸なし,個体識別p,合成用保存* 【原点】 Y,X, ,p,+,* // 縦軸Y,横軸X,奥行軸なし,個体識別p,関数+,合成用保存* 【東京の分】 z,z, ,p,* // 縦軸z,横軸z,奥行軸なし,個体識別p,合成用保存* 【原点】 ?Y,?X, ,p,+,* // 縦軸?Y,横軸?X,奥行軸なし,個体識別p,関数+,合成用保存* 【富山市の分】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション