La mala educació

Acabo d'arribar a casa després de veure una senzilla representació teatral al centre cívic de Sant Narcís a Girona.  De fet, més enllà de fer una representació, intenten mostrar i educar a l'espectador preguntant-li què li sembla el que veu i què faria per canviar el desenvolupament d'una escena que posa de manifest la inacceptable actitud rígida i opressora que mostra un home masclista vers la seva dona.

Tinc la impressió que en aquell local no hi havia la gent que precisament necessitaria rebre el missatge que estant transmeten, però tant si val, ja està bé.  Ara cal que això ho facin a les escoles, on potser aconseguiran mostrar als futurs homes com cal tractar una dona.

El cas és que tot plegat m'ha fet pensar en un article que vaig llegir fa un temps:
¿Por qué los machistas no dejan de matar? del 02/08/2010 publicat a www.elpais.com on hi ha un paràgraf que em va cridar molt l'atenció:

[Todas las voces admiten, al principio o al final de la conversación, que los factores son múltiples, complejos, difíciles de analizar, pero Soledad Cazorla, fiscal delegada para la Violencia contra la Mujer, lo hace con una sinceridad y contundencia aplastantes: "El que quiere matar mata con crisis, sin crisis, porque le has dicho que sí, porque le has dicho que no, y porque las lentejas estaban frías".]

La genètica pesa, però l'educació canvia les coses.  NO al maltractament.

El fals interès

Poca gent sent un interès real en saber com és la teva vida, com et van les coses, quins projectes tens, quina opinió et mereixen certs fets o què t'agrada fer.  Tinc la sensació que a molts els agrada parlar de coses relacionades amb la teva vida personal que aparentment encara has de resoldre, o no acaben de funcionar com voldries, amb l'únic objectiu de sentir-se millors i superiors.  Si això els ajuda, ni que sigui per un instant, almenys haurà servit per alguna cosa.  El que pensa el nostre entorn és un input més que hem de valorar en la seva justa mesura, no li podem donar l'esquena però tampoc el podem obviar. 

Qui té un AMIC té un tresor i trobar tresors és molt difícil.

Sentir-te fort i segur de les teves pròpies decisions i del teu estil de vida; la determinació i la convicció; la tranquilitat i la perseverança, són, en definitiva, escencials per no perdre el món de vista i per no fer passes equivocades cap al no res amb la única intenció de deixar que el temps corri sense ni tan sols saber perquè.   Tot, és clar, sota el paraigües de la Societat del Benestar, la qual permet, per exemple, que jo pugui escriure en aquest bloc i al damunt, en català.

Sobre el català, contestant l'article del bloc del Ferran

Responent al que ha publicat el Ferran al seu bloc titulat: l'excepció constitucional espanyola

http://ferranmercant.balearweb.net/post/94099

Si bé és cert que les intencions de l'Estat espanyol vers al tractament de les llengües que hi coexisteixen disten de les que haurien de ser, tampoc hem d'oblidar que al nostre País, el català té totes les portes obertes a tot arreu.  Rebem l'educació en català, al Parlament i als estaments públics del nostre País l'idioma "oficial" és el català, la senyalització viària és en català, molt software es tradueix al català, tenim televisió en català, cinema en català....i també la cultura catalana està més protegida que anys enrera.  S'han fet passos de gegant en molts aspectes.

És cert, hi hauria d'haver més pel·lícules en català, més protecció de l'idioma en alguns àmbits, més, més, més....sí! però a cas no és tot un èxit gaudir del que tenim quan formem part d'un Estat que té preferència per un altre idioma i cultura?  No tenim Estat propi i això Ferran, això és imprescindible per anar a dormir tranquils, per no tenir por de perdre el que tenim, per no estar sempre a l'aguait....aleertaaaaaa!!!!  Sempre ens fixem en el que té més èxit que nosaltres, però també n'hi ha que estan pitjor i això vol dir que cal que els qui han de defensar el que s'ha aconseguit, no s'adormin, i segueixin treballant per mantenir-ho.

Arrosseguem fets històrics que ens han complicat les coses i aquí tampoc es van fer bé les coses....no tota la culpa la té el veí oi?  En fi, d'història en saps més tu que jo, però jo, quan em fixo amb el que tenim, penso que no estem tant malament! :-)

Si volem més, ens cal un Estat!  Aconseguir més a casa dels altres, és una utopia no? Al meu avi el pegaven per parlar en català al carrer i el meu pare cantava el Cara al Sol quan formava al pati de l'Escola per anar a classe.....algunes coses canvien....espero que totes no.

XBOX360: Reparant el problema dels 3 llums vermells

Segons diferents fonts d'internet, sembla que el problema de les 3 llumetes vermelles de la xBox360 està relacionat amb errors en algun component del hardware (per sobre-escalfament) o bé per problemes d'alimentació (mala connexió o corrent insuficient) i sembla que en el primer cas, es pot solventar canviant la pasta tèrmica de la CPU i la GPU (processador principal i processador gràfic, respectivament).

En el meu cas, el problema l'he tingut després d'un any i mig de tenir la màquina.  Dedueixo que m'ha passat per tenir-la ubicada en un lloc inapropiat perquè tingués una ventilació adequada.  Encara que li afegiu el kit de 3 ventiladors, com vaig fer jo, i que sumats als 2 que ja porta de sèrie li dónen més capacitat de refrigeració, cal que la tingueu en un lloc amb prou espai com perquè l'aire calent que es genera es dissipi ràpidament.

A continuació us detallo com ho he fet per canviar la pasta tèrmica de la CPU i de la GPU.

Material necessari:

• Alcohol
• Tornavís petit
• Tornavís no tant petit :-)
• Torx 10
• Torx 7
• Alicates
• Pasta tèrmica que qualitat
• Paciència i carinyo ;-)

PASSOS A SEGUIR:

Després de treure el disc dur, cal desfer les dues tapetes de plàstic de color gris que hi ha a ambdós laterals de la màquina.  Per fer-ho, ens hem d'ajudar d'un tornavís per empènyer les petites potes de plàstic que les subjecten.  Estan al lateral, és a dir, les podeu veure pels foradets petits.
Fixa't en la foto per veure com es treuen:

Tot seguit treiem les 2 tapes blanques principals, amb l'ajuda d'un tornavís petit, aprofitant els punts que ja han deixat preparats al darrera de la màquina per fer-ho, evitant danys a les pestanyes i al plàstic.  Per separar una tapa i l'altra, cal tenir cura de no fer malbé la pota que acciona l'obertura del lector de DVD.

Tot seguit treiem la peça blanca que hi ha al darrera del botó del Power i la petita placa electrònica que hi ha al darrera subjectada per 3 cargols.

Un cop obert cal descollar els cargols amb la clau TORX10. N'hi ha 6 de color plata més llargs que mantenen les dues tapes metàl·liques unides i la resta (de color daurat) que aguanten la placa mare.  Un cop em tret els 6 més llargs ja es pot treure el lector de DVD.

N'hi ha 8 de petitets al mig que també s'han de desfer.

Després, cal treure la tapa blanca de plàstc que condueix l'aire dels ventiladors als dissipadors dels processadors amb l'ajuda d'un petit tornavís.

També cal treure els ventiladors de la mateixa manera.

Ja ho tenim tot a punt per separar la placa mare del suport metàl·lic.  Anem amb cura de no fer malbé condensadors, xips, dissipadors, etc.

La part més pesada, i on caldrà tenir paciènca per no espatllar res, és la de treure les creus metàl·liques que aguanten la CPU i la GPU.  Tranquilitat, força justa i l'ajuda d'un tornavís seran els nostres aliats.  Per fer-ho bé, cal aguantar el dissipador del processador que tenim a una cara de la placa amb una mà, i amb l'altra cal desclavar la creu que està a l'altra cara de la placa.  Per desclavar la creu, cal posar el tornavís en el punt on està anclada la pota.  Hem de fer palanca en la part doblada de la creu amb l'ajuda del tornavís.  És el punt que us indico en la foto següent:

Un cop fet això ja podem treure els dos dissipadors i procedir a netejar la pasta tèrmica vella que hi tenen enganxada amb alcohol i cotó o bé un drap petit.  Costa de treure però es pot fer net.

Igualment, netejarem els dos processadors.  No hem de patir per l'alcohol ja que no fa malbé els components però sí cal tenir cura de no fer malbé els xips que hi ha al voltant embrutant-los amb pasta tèrmica o aplicant-hi massa força.

Un cop tot és net, aplicar-hi la pasta tèrmica nova i procedir al muntatge de les peces seguint l'ordre invers.

Caminante no hay camino, se hace camino al andar.  Antonio Machado

On the internet, nobody knows you're a dog

Això és el que deia la portada de la publicació The New Yorker del 5 de juliol de 1993 amb el dibuix que va fer un tal Peter Steiner on un gos apareix mecanografiant davant un ordinador.

La frase diu:  A internet ningú sap que ets un gos..... Sobren els comentaris.

mecànica_art.4: mordasses del darrera.

Cotxe:  Ford Fiesta mk6 1.6TdCi Sport

Mordasses:  Per a tambor de 203mm

Quan s'han de canviar?:  Fan soroll.  Encara que no estiguin del tot gastades, les mordasses queden envidriades i perden efectivitat.

Temps estimat:  40' per tambor


Cost aproximat:  Kit complet de mordasses + bombins per tambors =190 €

Eines necessàries:

• Gat hidràulic / mecànic
• Cavallet per assegurar que el cotxe no ens caurà al damunt ;-)
• Clau 19
• Clau 11 oberta o d'estrella
• Clau 11 de got
• Clau 30 de got
• Un parell de tornavisos
• Alicates
• Martell i/o massa
• Extractor especial per a tambors (foto2)

foto1

foto2

Passos a seguir:


1. Treure la roda després d'aixecar el cotxe i assegurar-lo bé.
2. Utilitzar la clau de got del 30 per descollar la femella que aguanta el tambor.  Per fer-ho no cal frenar el cotxe.

foto3

3. Treure el tambor.  Picar una mica per i amb l'ajuda de tornavisos fer-lo sortir a poc a poc; amb paciència.  Si disposem d'un extractor de tambors, molt millor....és més còmode.

4. Treure els 2 clips que aguanten les mordasses i tot seguit desfer la molla de sota amb l'ajuda de les alicates.  Un cop fet això, ja podem treure-ho tot, vigilant de no fer malbé les gomes del bombí.  Fer una fotografia o bé fixar-nos bé per recordar com s'ha de muntar.

foto4

foto5

foto6

5. Tot seguit netejem tota la superfície descoberta.  Cal tenir cura amb la pols; és tòxica (amiant).

foto7

6. Si hem adquirit un Kit complet (amb bombins inclosos) cal treure el bombí vell i substituïr-lo pel nou.  Per fer-ho, cal descollar els cargols que hi ha al darrera del bombí i que el mantenen unit al sistema.  Després s'ha de descollar el conducte del líquid de frens i separar-lo del bombí.  Procurar perdre la menor quantitat de líquid possible.  (a la foto es pot observar el conducte i la famella que l'uneix al bombí).

foto8

7. Instal·lar el bombí nou.  Al kit que ens han venut hi ha líquid de frens que cal utilitzar per omplir el bombí, així no entra aire al circuit.

foto9

8. En la foto9 podem veure una peça a la part inferior.  És el separador de les mordasses i serveix per ajustar-ne l'obertura.  Segurament caldrà reajustar-la.

9. Per muntar els frens, cal anar amb cura i tenir paciència.  Seguir els passos inversos.  Muntar per sota i després per dalt, havent col·locat ja els clips que mantenen les mordasses subjectades.

10. Col·locar el tambor i després collar la femella amb la clau de got del 30.

NOTA 1:  És recomanable l'ús d'una clau dinamomètrica per tal d'assegurar els parells de força al collar cargols i femelles.

NOTA 2:  Purgar els frens.  Per fer-ho cal treure el petit tap de goma que tapa el purgador que hi ha al darrera del bombí (tap de goma de la foto8) un cop tot està instal·lat. Descollem una mica la femella mentrestant algú ens ajuda prement el pedal dels frens.  Quan comenci a sortir oli, tanquem, collant la femella.

NOTA 3:  Treballar amb molta cura ja que es tracta del sistema de frenat del vehicle.  Revisar el nivell de líquid de frens un cop acabada l'operació.

NOTA 4:  És convenient aprofitar per revisar l'estat dels coixinets aprofitant que realitzem aquesta operació.  Si un cop desfeta la famella del 30, notem un petit joc en el tambor, convé canviar el coixinet.

mecànica_art.3: aquaplaning

T'agrada el pollastre amb patates?  T'has preguntat què passaria si te'n mengéssis 5 plats de cop en comptes d'un? És clar, que el pollastre i les patates et sortirien per la boca i les orelles com a mínim.  Doncs això és el que els passa als pneumàtics quan la quantitat d'aigua que han d'evacuar és excessiva: es saturen.

Definir en quin moment la quantitat és excessiva és difícil, però podríem resumir que queda en funció de:

   - Desgast dels pneumàtics

   - Disseny dels pneumàtics

   - Quantitat d'aigua que hi ha a la carretera

   - Velocitat del vehicle

Els pneumàtics estan dissenyats per desallotjar una determinada quantitat d'aigua a certa velocitat i l'efecte que té el desgast és inversament proporcional a aquesta quantitat.  Així, si es dónen una sèrie de factors, l'aigua col·lapsa el pneumàtic i es forma una capa d'aigua entre ell i el paviment.  En aquest moment es produeix l'aquaplaning (les rodes llisquen damunt l'aigua).

Què cal fer?

Quan es produeix l'aquaplaning, el que li passa a cada una de les rodes del tren del davant no és exactament el mateix i això provoca que el cotxe zigzaguegi.  És per això que cal agafar el volant amb força intentant compensar el vaivé mentre desaccelerem o frenem amb més o menys suavitat en funció de si el vehicle disposa d'ABS.

Circular a uns 90 km/h, en condicions de pluja mitjanament intensa i amb pneumàtics que estan a punt d'arribar al límit del desgast que marca el fabricant, poden ser factors suficients per patir aquaplaning.

Segons un estudi de la Universitat de Murcia, aproximadament el 60% dels accidents relacionats amb "defectes del vehicle" són culpa dels pneumàtics.

Apropiació indeguda

És una expressió que em fa gràcia i que està a l'ordre del dia.

Tots sabem que algú que ha estat condemnat per robatori és un lladre de cap a peus, però què passa quan se'ns informa que a un personatge se'l condemna per apropiació indeguda?  Doncs que han enxampat al senyor lladre.  Lladre sí, però senyor també.  Així doncs, quan algú de l'Alta Societat "ha ficat la mà a la caixa", ha comès una apropiació indeguda.  Quina elegància.

Al diccionari, un eufemisme es defineix com:  Paraula o expressió més suau que en substitueix una altra considerada de mal gust, grollera o massa franca .  I subratllo "massa franca" perquè em crida l'atenció.

Les relacions humanes sovint es compliquen quan hi ha un excés de franquesa; no sempre és adequat dir les coses pel seu nom,  i per això existeixen mots que ajuden a facilitar l'entesa entre persones.  El que passa és que l'ús d'aquests eufemismes sovint serveix per canviar l'enfoc de la realitat.

Així doncs, una "apropiació indeguda" és un robatori en tota regla, l'autodeterminació és l'eufemisme d'independència i una "escort de luxe" és una prostituta cara, oi?

La informació no és coneixement

Ja deu fer uns 12 anys que vaig llegir un article de Joan Barril al Periódico de Catalunya que portava per títol:  "La informació no és coneixement".  Donat que en aquell moment jo era un estudiant adolescent amb la motivació d'aprendre quelcom més, alimentada, és clar, per la necessitat d'abandonar algun dia la meva condició de mortal amb recursos limitats però amb la independència que et dóna una certa capacitat intel·lectual, em vaig adonar al llegir l'article, que al llarg de la meva vida seria convenient que intentés arribar a entendre les coses, a "saber fer"....en definitiva, alló que en el llenguatge internacional s'anomena Know-How.

L'article, al cap i a la fi, explicava que una cosa és conèixer les dades i l'altra saber què fer-ne.  El saber fer no només implica aprendre o emmagatzemar informació, també vol dir que saps utilitzar-la per realitzar una activitat, per exemple.  En altres paraules, val més tenir poques eines al taller però tenir idea de com utilitzar-les.

En aquella època no feia gaire temps que internet havia arribat a casa nostra i ja s'entrellucava que l'accés a una quantitat exorbitant d'informació facilitaria les coses però cal tenir present que no tenim ni el temps ni la capacitat per fer-ho tot, així evitarem caure en la temptació de voler aprendre moltes coses i no saber-ne fer gaires.

El que no vull

"No sé el que vull però tinc clar el que no vull"

Aquesta és una frase que et pots trobar algunes vegades al bell mig d'una conversa sobre temes de cert calat i que, a aquestes alçades, no aconsegueixo comprendre.  A saber el que em volen dir.

Però si em fixo estrictament en la frase, em pregunto:  Si una persona té clar el que no vol, deu voler dir que sap perfectament el que vol no?  A veure, si el que vull és A (que no ho sabem) i el que no vull és noA (que si ho sabem), aleshores, sabent que no(noA) = A, automàticament sabem el que volem oi?

Vaja, ja sabia jo que si et despistes ja te l'han fotut! o no?  Qui sap! mmmmmm.....No fotis que n'hi ha que saben el que volen, però no ho saben! ¿?

;-)

Sentir-se millor

Avui he arribat a casa després de córrer durant més d'una hora, cansat però content; feliç de poder fer alló que un dia no podré fer.

Et recuperes un xic amb un got d'aigua, 4 cullerades petites de sucre, el suc de mitja llimona i una punta de sal.  Tot seguit et rentes i abans de tancar l'aixeta et quedes, per un instant, sols un petit instant, a sota la dutxa, et tapes les orelles i sents l'efecte que provoca l'aigua impactant contra el teu crani, i mentre escoltes de fons el Memory Gospel de Moby, prèns consciència de quin és el sentit fonamental de la vida:  gaudir-la.

Són aquelles petites coses de la vida que et fan estar bé dirien molts.  No tant petites, no tant petites! Dic jo.  Una riquesa insultant davant la trista realitat de moltes persones.

El meu escriptori

El disseny amb AutoCAD:

Fotografies i explicacions: (pendent)

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