Adobat de camps - 3º Enginyeria Tècnica Agrícola

Per a calculadores TI-92


ADOBAT.9XP

()

Prgm

Lbl in

programa\mode()

setFold(enginyer)

Dialog

Text "********** Riquesa del camp **********"

Request "pH ",m

Request "kg N/Ha ",o

Request "[ppm] K ",n

Request "[ppm] P ",w

EndDlog

Dialog

Text "*********** Extraccions *********"

Request "Kg N/Ha",p

Request "Kg P/Ha",q

Request "Kg K/Ha",r

Text ""

DropDown "Càlculs",{"segons normativa vella","segons normativa nova"},u

EndDlog

Lbl new

Dialog

Text "****** Característiques del fang *****"

Request "% Matèria Seca",a

Request "% Matèria Org.",b

Request "% Nitrogen ",c

Request "% Fosfats ",d

Request "% Potassi ",e

DropDown "Tipus de fang (Kmo)",{"Aeròbic","Anaeròbic","Compost de fang"},ea

DropDown "Cond. cultiu (Kn)",{"Aeròbic-líquid","Aeròbic-deshidr.","Anaeròbic-Líquid

","Anaeròbic-deshidr.","Compost de fang"},da

EndDlog

If da=1 Then

0.75→da

ElseIf da=2 Then

0.6→da

ElseIf da=3 Then

0.7→da

Else

0.5→da

EndIf

If ea=1 Then

0.65→ea

Else

0.55→ea

EndIf

Dialog

Text "****** Metalls pesants del fang ******"

Request "[ppm] Zn",f

Request "[ppm] Cu",g

Request "[ppm] Cd",h

Request "[ppm] Pb",i

Request "[ppm] Hg",j

Request "[ppm] Ni",k

Request "[ppm] Cr",l

EndDlog

Dialog

Text "****** Metalls pesants del camp ******"

Request "[ppm] Zn",fb

Request "[ppm] Cu",gb

Request "[ppm] Cd",hb

Request "[ppm] Pb",ib

Request "[ppm] Hg",jb

Request "[ppm] Ni",kb

Request "[ppm] Cr",lb

EndDlog

Lbl met

Dialog

Request "Producció (kg/Ha)",v

Text ""

Text ""

Text "*Recomanacions en l'aplicació d'adobs*"

Text ""

DropDown "",{"Manual gestió Generalitat","Blat secà","Blat regadiu","Ordi secà","Or

di regadiu","Blat de moro secà","Blat de moro regadiu","Patata secà","Patata regadiu",

"Alfals","Fruitera de pinyol","Fruita de llavor","Vinya","Lleguminoses"},s

DropDown "",{"Manual gestió Junta Sanejam.","Blat","Ordi","Blat de moro","Sorgo","P

atata","Cereals d'hivern (ferratge)","Gramínies (ferratge)","Blat de moro (ferratge)",

"Blat de moro (ferratge)","Raigràs","Raigràs","Prat natural (dalt)","Prat natural (pas

turat)","Prats permanents","Pomera","Parera","Albercoquer","Presseguer","Cirerer","Ame

tller","Cítrics","Vinya","Olivera","Gira-sol","Colza"},t

EndDlog

If s 1 and t=1 Then

s-1→θ

t12→x

ElseIf s=1 and t 1 Then

t-1→θ

t1→x

ElseIf s=1 and t=1 Then

Disp "Has d'escollir un mètode"

Goto met

Else

Disp "Només es pot escollir un mètode"

Goto met

EndIf

expr(a)→a

expr(b)→b

expr(c)→c

expr(d)→d

expr(e)→e

expr(f)→f

expr(g)→g

expr(h)→h

expr(i)→i

expr(j)→j

expr(k)→k

expr(l)→l

expr(m)→m

expr(n)→n

expr(o)→o

expr(p)→p

expr(q)→q

expr(r)→r

expr(v)→v

expr(w)→w

expr(fb)→fb

expr(gb)→gb

expr(hb)→hb

expr(ib)→ib

expr(jb)→jb

expr(kb)→kb

expr(lb)→lb

0→ka

If u=1 and m<7 Then

If f>pe[5,1] or g>pe[2,1] or h>pe[1,1] or i>pe[4,1] or j>pe[6,1] or k>pe[3,1] or l>p

e[7,1] Then

Disp "El fang no compleix la normativa:"

For ra,1,7

Disp string(pe[ra,3])&" "&string(pe[ra,1])

EndFor

Pause

ClrIO

EndIf

If fb>pe[5,2] or gb>pe[2,2] or hb>pe[1,2] or ib>pe[4,2] or jb>pe[6,2] or kb>pe[3,2]

or lb>pe[7,2] Then

Disp "El camp no compleix la normativa:"

For ra,1,7

Disp string(pe[ra,3])&" "&string(pe[ra,2])

EndFor

Pause

Goto in

EndIf

ElseIf u=1 and m>7 Then

If f>gr[5,1] or g>gr[2,1] or h>gr[1,1] or i>gr[4,1] or j>gr[6,1] or k>gr[3,1] or l>g

r[7,1] Then

Disp "El fang no compleix la normativa:"

For ra,1,7

Disp string(gr[ra,3])&" "&string(gr[ra,1])

EndFor

Pause

ClrIO

EndIf

If fb>gr[5,2] or gb>gr[2,2] or hb>gr[1,2] or ib>gr[4,2] or jb>gr[6,2] or kb>gr[3,2]

or lb>gr[7,2] Then

Disp "El camp no compleix la normativa:"

For ra,1,7

Disp string(gr[ra,3])&" "&string(gr[ra,2])

EndFor

Pause

Goto in

EndIf

ElseIf u=2 and m>7 Then

If f>pen[5,1] or g>pen[2,1] or h>pen[1,1] or i>pen[4,1] or j>pen[6,1] or k>pen[3,1]

or l>pen[7,1] Then

Disp "El fang no compleix la normativa:"

For ra,1,7

Disp string(pen[ra,3])&" "&string(pen[ra,1])

EndFor

Pause

ClrIO

EndIf

If fb>pen[5,2] or gb>pen[2,2] or hb>pen[1,2] or ib>pen[4,2] or jb>pen[6,2] or kb>pen

[3,2] or lb>pen[7,2] Then

Disp "El camp no compleix la normativa:"

For ra,1,7

Disp string(pen[ra,3])&" "&string(pen[ra,2])

EndFor

Pause

Goto in

EndIf

Else

Disp "No existeixen valors per pH<7"

Disp "en la nova normativa"

ClrIO

Goto new

EndIf

Dialog

DropDown "Càlculs a partir de",{"N","P","K"},s

Text " "

DropDown "Tenir en compte N del sòl? ",{"No","Si"},bb

EndDlog

If bb=1 Then

0→o

EndIf

If s=1 Then

x[θ,1]*v-o→aa

If aa<p Then

Disp "No es poden abocar les extraccions.","El límit de Kg/Ha de N és:",aa

aa→p

Else

Disp "Aportació màxima de Kg/Ha de N :",aa

EndIf

If w≤12 Then

2*q→ba

ElseIf w>12 and w<18 Then

2.25/w*q+q→ba

ElseIf w≥18 and w≤25 Then

q→ba

Else

q*0.5→ba

EndIf

Disp "Aportació màxima de Kg/Ha de P2O5 :",ba

If n≤80 Then

1.5*r→ca

ElseIf n>80 and n<175 Then

r*1.2→ca

ElseIf n≥175 and n≤300 Then

r→ca

ElseIf w>300 and n≤425 Then

r*0.6→ca

Else

r*0.3→ca

EndIf

Disp "Aportació màxima de Kg/Ha de K2O :",ca

Pause

ClrIO

p*10000/(da*c*a)→fa

fa*a%*d%→ga

fa*a%*e%→ha

Disp "Kg de Fang/Ha aportats:",fa,"Kg de P2O5/Ha aportats:",ga,"Kg de K2O/Ha aport

ats:",ha

Pause

ClrIO

ba-ga→ia

ca-ha→ja

"Sobren :"→xb

"Falten :"→yb

"Kg/Ha de P2O5"→tb

"Kg/Ha de K2O"→ub

If ia>0 Then

Disp yb,string(abs(ia))&" "&tb

Else

Disp xb,string(abs(ia))&" "&tb

EndIf

If ja>0 Then

Disp yb,string(abs(ja))&" "&ub

Else

Disp xb,string(abs(ja))&" "&ub

EndIf

fa*a%*b%*(1-ea)→ka

Disp "","Aportació en Kg/Ha de Mat.Org :",ka

Pause

Goto in

ElseIf s=2 Then

Else

EndIf

Goto in

EndPrgm