=============== skyline2-trans-fatty-acids-consume-kobe-jp ============= ==== 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シートからコピー＆ペーストする． ------- ユーザデータの各行の末尾にも「//」を挿入してコメント文を記述できる． ------- ★ユーザ文字・数値データをこの行直後にペーストする ★↓↓★ 6399 0.163 6932 0.204 964 0.128 811 0.128 2261 0.521 28202 0.091 144 0.024 156 1.951 770 0.826 2672 1.395 446 7.004 1572 1.237 ====================== $$v // 変量分析セクション $a // 変量記号の割り当て x,aaa // 分母　神戸市の購入数量 s,bbb // 比率　含有率％ X,AAA // 分母　全国の購入数量 S,BBB // 比率　含有率％（実際には含有率Sはsと同じ） ---------------- $d // 表示範囲 all // 全範囲 ---------------- $t // 変数変換 y=(x*(s/100)) // 分子 　神戸市の摂取量 = 神戸市の購入数量 * （含有率％ / 100） Y=(X*(S/100)) // 分子 　全国の摂取量 = 全国の購入数量 * （含有率％ / 100） ................... P=:ci(y) // 個体識別文字列P作成 =pr*(x,y,s,X,Y,P) // 数値プリント .................... i=@.a(x) //　2009年購入数量xの期間中の平均値のスカラーi（区切りに利用） I=:ci(i)* //　スカラーiに文字 "*" の文字列変量I　作成（スカイライン区切りに利用） ?x=(x,i,X) //　購入数量　神戸市分x＋スカラーi＋全国分X の連結変量?x ?y=(y,0,Y) //　摂取量　 神戸市分y＋数値0＋全国分Y の連結変量?y ?s=(s,0,S) //　含有率 神戸市分s＋数値0＋全国分S の連結変量?s ?P=(P,I,P) //　文字列変量 神戸市分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を説明（独立）変数とする回帰 =============== $$g // グラフセクション $d // 表示範囲 all // 全範囲 $g // スケールの目盛り指示コマンド（標準10ポイント） s,001 // 変量sの目盛りを細かく1ポイントごとに y,001 x,001 ?s,001 $z // ゼロ軸表示 syx?s // 変量s,y,x,?sのゼロ軸表示 $p // プロット xX,yY,s // 変量x X,別スケールで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,関数+,合成用保存* 【全国の分】 // 合成（２次元図上の散布点と原点のリンク，３次元図圧縮を利用） ======================= $$ // 終了セクション