macro calcola la somma dei fondi e il puro segnale purezza purezza Vs efficenza
zone 2 4
add 2004 3004 7004
add 7004 4004 7004
add 7004 5004 7004
add 7004 6004 7004
sub 1004 7004 8004 1 1 e
h/pl 1004 lego2
h/pl 2004 lego2
h/pl 3004 lego2
h/pl 4004 lego2
h/pl 5004 lego2
h/pl 6004 lego2
h/pl 7004 lego2
h/pl 8004 lego2
wait
add 2016 3016 7016
add 7016 4016 7016
add 7016 5016 7016
add 7016 6016 7016
sub 1016 7016 8016 1 1 e
h/pl 1016 lego2
h/pl 2016 lego2
h/pl 3016 lego2
h/pl 4016 lego2
h/pl 5016 lego2
h/pl 6016 lego2
h/pl 7016 lego2
h/pl 8016 lego2
wait
add 2017 3017 7017
add 7017 4017 7017
add 7017 5017 7017
add 7017 6017 7017
sub 1017 7017 8017 1 1 e
h/pl 1017 lego2
h/pl 2017 lego2
h/pl 3017 lego2
h/pl 4017 lego2
h/pl 5017 lego2
h/pl 6017 lego2
h/pl 7017 lego2
h/pl 8017 lego2
wait
add 2018 3018 7018
add 7018 4018 7018
add 7018 5018 7018
add 7018 6018 7018
sub 1018 7018 8018 1 1 e
h/pl 1018 lego2
h/pl 2018 lego2
h/pl 3018 lego2
h/pl 4018 lego2
h/pl 5018 lego2
h/pl 6018 lego2
h/pl 7018 lego2
h/pl 8018 lego2
wait
zone 2 2
v/cre aa(65)
get/c 1004 aa
v/cre ac(65)
get/c 8004 ac
sigma ab=sumv(aa)
sigma ad=sumv(ac)
sigma ag=4856.11-ad
sigma ah=39803-ab
sigma ae=(ag)/(ag+ah)
sigma af=(-ad/vsum(ac)*100)+100
sigma ap=-af+100
v/pl ae(20:51)%ap(20:51)
wait
v/cre ba(40)
get/c 1016 ba
v/cre bc(40)
get/c 8016 bc
sigma bb=sumv(ba)
sigma bd=sumv(bc)
sigma bg=vsum(bc)-bd
sigma bh=vsum(ba)-bb
sigma be=(bg/(bg+bh))
sigma bf=bd*100/4785
sigma bx=bf
v/pl be(1:30)%bx(1:30)
wait
v/cre ca(60)
get/c 1017 ca
v/cre cc(60)
get/c 8017 cc
sigma cb=sumv(ca)
sigma cd=sumv(cc)
sigma ce=(cd)/(cb+cd)
sigma cf=cd*100/4598
v/pl ce%cf
wait
v/cre da(30)
get/c 1018 da
v/cre dc(30)
get/c 8018 dc
sigma db=sumv(da)
sigma dd=sumv(dc)
sigma de=(dd/(dd+db))
sigma df=dd*100/4533
v/pl de%df
wait
zone 2 2
v/dr ae(1:50)
v/dr be(1:27)
v/dr ce(4:30)
v/dr de
wait
add 1004 1004 11004
add 1016 1016 11016
add 1017 1017 11017
add 1018 1018 11018
put/c 11004 ae
put/c 11016 be
put/c 11017 ce
put/c 11018 de
h/pl 11004(1:53) lego1
h/pl 11016(1:27) lego1
h/pl 11017 lego1
h/pl 11018 lego1
wait
add 1004 1004 9004
add 1016 1016 9016
add 1017 1017 9017
add 1018 1018 9018
put/c 9004 af
put/c 9016 bf
put/c 9017 cf
put/c 9018 df
v/dr af(42:58)
v/dr bf
v/dr cf
v/dr df
wait
h/pl 9004(42:58) lego1
h/pl 9016 lego1
h/pl 9017 lego1
h/pl 9018 lego1
return
(
geocities.com/it/realquasars) (
geocities.com/it)