macro per grafici 13001 14001

	h/pl 14001 hist
	h/pl 13001 shist
wait
zone 1 2
	h/pl 13001
	h/pl 14001
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%ap
wait
zone
	v/dr ae
	add 13001 13001 13002
	add 13001 13001 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)