macro per grafici 13001 14001 666012

	h/pl 666012 hist
	h/pl 14001 shist
	h/pl 13001 shist
wait
zone 1 3
	h/pl 666012
	h/pl 13001
	h/pl 14001
wait
zone 2 2
	v/cre ba(100)
	 get/c 666012 ba
		sigma bb=sumv(ba)
		sigma bc=vsum(ba)-bb
		sigma bd=bb/vsum(ba)*100
		v/dr ba
		v/dr bb
		v/dr bc
		v/dr bd
wait
zone
	v/cre aa(100)
	 get/c 14001 aa
 	v/cre ac(100)
	 get/c 13001 ac
 		sigma ab=sumv(aa)
 		sigma ad=sumv(ac)
		sigma ag=vsum(ac)-ad
		sigma ah=vsum(aa)-ab
		sigma ai=ah+ag
 		sigma ae=ag/ai
		sigma af=(ad/vsum(ac)*100)
		sigma ax=(ab/vsum(aa)*100)
		sigma ap=-af+100
		v/pl ae%af
wait
zone
	v/dr ae
	add 13001 13001 13002
	add 14001 14001 14002
	put/c 13002 af
	put/c 14002 ax
wait
zone 1 2
	h/pl 13002 hist
	h/pl 14002 hist

zone

return

    Source: geocities.com/it/realquasars/stage

               ( geocities.com/it/realquasars)                   ( geocities.com/it)