============== u-c-f1.txt ========= ====================== ƒ†[ƒUƒf[ƒ^ƒZƒNƒVƒ‡ƒ“ $$u $c //ƒNƒƒXƒZƒNƒVƒ‡ƒ“‘®«ŽwŽ¦ƒRƒ}ƒ“ƒh 0001,0006,:n1,Œ§–¼ //iʼn‚ÌŠ¿ŽšŒ§–¼‚Q•¶Žšj ,:n2,Œ§–¼ //iŽŸ‚ÌŠ¿ŽšŒ§–¼‚Q•¶Žšj ,Œ§“à‘¶ŽY1987”N“x -------------------- $d //ƒf[ƒ^“à—eƒRƒ}ƒ“ƒh ctype //ƒf[ƒ^“à—eƒpƒ‰ƒ[ƒ^ƒƒP[ƒX‚²‚Æ‹Lqƒ^ƒCƒv„ Ž ‰ê,Œ§,3666 //Ž ‰êŒ§‚Ì•¶Žš,”’l ‹ž“s,•{,7174 //‹ž“s•{ ‘åã,•{,29556 //‘åã•{ •ºŒÉ,Œ§,14239 //•ºŒÉŒ§ “Þ—Ç,Œ§,2506 //“Þ—ÇŒ§ ˜a‰Ì,ŽRŒ§,2406 //˜a‰ÌŽRŒ§ ======================== “ú–{ŒoσZƒNƒVƒ‡ƒ“ $$n --------------- time series $t //ŽžŒn—ñ“ü—̓Rƒ}ƒ“ƒh GDPBY90,‘“à‘¶ŽY //‘“à‘¶ŽY(–¼–Ú) ‹Œ68SNAE1990”NŠî€Œv”(MTƒR[ƒh11000007) --------------- list $l //“ü—͕ϗʃŠƒXƒgƒRƒ}ƒ“ƒh ========================= •Ï—Ê•ªÍƒZƒNƒVƒ‡ƒ“ $$v $a //•Ï—Ê‹L†Š„“–ƒRƒ}ƒ“ƒh x,‘“à‘¶ŽY N,:n1,Œ§–¼ //iʼn‚ÌŠ¿ŽšŒ§–¼‚Q•¶Žšj M,:n2,Œ§–¼ //iŽŸ‚ÌŠ¿ŽšŒ§–¼‚Q•¶Žšj y,Œ§“à‘¶ŽY1987”N“x ------------------- $d //•\Ž¦”͈̓Rƒ}ƒ“ƒh all //‘S”ÍˆÍ --------------- transform $t //•Ï”•ÏŠ·ƒRƒ}ƒ“ƒh x=&.s(x)1,2 //[&.s]ƒf[ƒ^•ÒWi‘“à‘¶ŽYj[1,2]-->”N“x‚ÖC‘æ‚QŽl”¼ŠúŽn“_ h=@."(x)1987.0 //ŽžŒn—ñ‚Ì‚PŽž“_i1987”Nj‚̃XƒJƒ‰[•Ï—Êì¬ s=(y/h*100) //Œ§“à‘¶ŽY‚Ì‘“à‘¶ŽY‚Éè‚ß‚éƒVƒFƒA P=:ci(y) //ƒP[ƒXi•{Œ§jŽ¯•Ê•¶Žš—ñ =pr*(N,M,y,s,P) //”’lƒvƒŠƒ“ƒgiŒ§•Êj =pr*(h) //”’lƒvƒŠƒ“ƒgi‘“à‘¶ŽY1987”N“xj ======================== ƒOƒ‰ƒtƒZƒNƒVƒ‡ƒ“ $$g $d //•\Ž¦”͈̓Rƒ}ƒ“ƒh all //‘S”ÍˆÍ ---------------- $p //ƒvƒƒbƒgƒRƒ}ƒ“ƒh y,s //Œ§“à‘¶ŽY(y)CƒVƒFƒA(s) ======================= I—¹ƒZƒNƒVƒ‡ƒ“ $$