搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  data sample.xlsx
资料下载链接地址: https://bbs.pinggu.org/a-1487755.html
附件大小:
294.24 KB   举报本内容
各位前輩,
最近遇到一個比較棘手的問題,我現有一個省份的鄉鎮市區的boundary的座標(經緯度),希望通過stata來計算這些鄉鎮市區的面積和中心,請問各位前輩具體的語法應該怎麼寫。我之前在網路查過一個Pro.Nick寫的Program ,試著運行但是數據沒有什麽變化,即是我的data當中并沒有產生一個新的叫area的變項。
以下是語法
*! NJC 1.0.0 15 August 2003
program polyarea, rclass
version 12
syntax varlist(min=2 max=2 numeric) [in]

tokenize `varlist'
args x y

marksample touse, novarlist
qui count if `touse' & (missing(`x') | missing(`y'))
if r(N) {
di as err "missing values in data"
exit 198
}

tempvar order area

gen long `order' = _n
su `order' if `touse', meanonly

qui gen `area' = `touse' * ///
(`x'[_n + 1] - `x') * (`y'[_n + 1] + `y') / 2
qui replace `area' = ///
(`x'[`r(min)'] - `x') * (`y'[`r(min)'] + `y') / 2 in `r(max)'
su `area', meanonly

di as res %9.0g abs(r(sum))
return scalar area = abs(r(sum))
end


謝謝各位前輩,希望斑竹不要再刪除我的帖子。謝謝。


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

GMT+8, 2025-12-28 21:26