relsize.class

是一个经济学管理应用软件 很难找的 但是经济学学生又必须用到

/*				relsize.cls

	relative size style class.  What the size is relative too depends on
	its use.
*/
*! version 1.0.0  30jul2002

version 8

class {

}, inherit(numstyle)

/* ALL styles must run .Super.new if they implement their own .new program */

program define new

	.Super.new, `.set `0''

end


program define set
	syntax [ , Set(integer -99) *]

	if `set' != -99 { 
		.val = `set' 
	}

	class exit `"`options'"'
end

program define prop

	class exit = `.val' / 100
end