Càlcul de tarifes elèctriques - 3º Enginyeria Tècnica Agrícola

Per a calculadores TI-92


TARIFES.9XP

()

Prgm

Lbl in

programa\mode()

Local pc,pm,fp,kr,s1,s2,s3,s4,s5

setFold(electric)

Dialog

Title "Tarifes de baixa tensió"

Request "Pot.cont.",pc

Request "F.P. ",fp

Request "Lloguer ",t

DropDown "Tipus ",seq(string(x),x,1,5,1),b

DropDown "Tarifa ",{" 1.0 ≤770 W"," 2.0 General ≤15 kW"," 2.0 Nocturna"," 3.0 Ge

neral curta util."," 4.0 General llarga util."," B.0 Enllumenat públic"," R.0 Recs agr

ícoles"},c

DropDown "Mode ",seq(string(x),x,1,3,1),d

DropDown "Mesos fact.",seq(string(x),x,1,12,1),e

EndDlog

expr(t)→t

expr(pc)→pc

expr(fp)→fp

0→kr

0→w

0→p

0→v

0→n

0→r

If d=2 Then

Input "Potència mesurada pel maxímetre?",pm

If pm≤1.05*pc and pm≥0.85*pc Then

round(pm,0)→pc

ElseIf pm>1.05*pc Then

round(pm+2*(pm-1.05*pc),0)→pc

ElseIf pm<0.85*pc Then

round(0.85*pc,0)→pc

EndIf

ElseIf d=3 Then

EndIf

ClrIO

Disp "???????Consums energètics (kWh)???????",""

Input "Hores pla?",n

If b=2 or b=3 or b=4 Then

Input "Hores punta?",p

EndIf

If b=3 or b=4 Then

Input "Hores vall?",v

EndIf

If b=5 Then

" ??? Hores punta ??? "→a1

" ??? Hores vall ??? "→a2

For i,1,2

"a"&string(exact(i))→j

Disp #j

Input "Dia pic?",n1

Input "Dia alt?",n2

Input "Dia baix?",n3

Input "Següent dia-baix?",n4

EndFor

EndIf

If c=4 or c=5 or c=7 Then

If fp=0 Then

Input "Potència reactiva (KVArh)?",r

EndIf

EndIf

If c=4 or c=5 or c=7 Then

n*tip[b,3]→n

EndIf

pc*tar[c,1]*e→s1

(n+v+p)*tar[c,2]→s2

If c=4 or c=5 or c=7 Then

If fp=0 Then

(n+v+p)/(√((n+v+p)^2+r^2))→fp

EndIf

round(fp,2)→fp

round(17/fp^2-21,1)→kr

(p*tip[b,1]+v*tip[b,2])*tar[c,4]→w

EndIf

s1+s2+w+round(kr%*(s1+s2),0)→s3

1.05113*s3→s4

1.16*(s4+t)→s5

ClrIO

For i,1,4

"s"&string(exact(i))→m

Disp "Terme "&char(64+i)&" = "&string(#m)

EndFor

Disp "","A= Terme de potència, B= Terme d'energia","C= Facturació sense impostos","D

= Impost especial per a la prod. elect."

Pause

ClrIO

If kr%*(s1+s2)<0 Then

"Bonificació per bon consum = "→q

Else

"Penalització per mal consum = "→q

EndIf

Disp "TOTAL FACTURA = ",round(s5,0),"","","Pta/kwh = "&string(s5

/(n+v+p)),"F.P. = "&string(fp),"Kr(%) = "

&string(kr),q&string(round(kr%*(s1+s2),0))

Pause

Goto in

EndPrgm