gdi_spokes.ado

来自「是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到」· ADO 代码 · 共 12 行

*! version 1.0.1  05jun2003
program gdi_spokes
	version 8.0
	args x y r h n
	forval i = 1/`n' {
		gdi moveto `x' `y'
		local angle = c(pi)/2 + 2*c(pi)*(`i'-1)/(`n')
		gdi rlineto `=`r'*cos(`angle')' `=`h'*sin(`angle')'
	}
end
exit