Design og modellering af metanolanlæg til VEnzin-visionen Bilag

19-03-07 19:26 D:\DTU\Eksamensprojekt\bilag\elektrolysedriftreal.m 3 of 5
106 end
107 time_doegn=time_doegn+1;
108 if time_doegn == 25
109 time_doegn = 1;
110 end
111 elpris_hist(i)=elpris(i);
112 lagerstatus=lager(i,aar,k);
113 if i > 500*antal
114 elpris_hist_sort=sort(elpris_hist);
115 elpris_Driftstimer=elpris_hist_sort(Driftstimer);
116 antal=antal+1;
117 end
118 end
119 lagerstatus=lager(i,aar,k);
120 drift_=drift(aar)
121 if drift(aar) == Driftstimer
122 if abs(lager(1,aar,k)-lager(i,aar,k)) > 300
123 warning('lagerstart forskellig fra lagerslut' )
124 return
125 end
126 break
127 end
128 end
129 if drift(aar) ~= Driftstimer
130 warning('drift forskellig fra Driftstimer' )
131 return
132 end
133 sum=aarsum(aar);
134 elpris_snit(k)=sum/(elektrolyseeffekt*andel*drift(aar));
135 sparet_el(k)=ref_eludgift-sum*levetid/1E6;
136 anlagsudgift(k)=ref_anlagsudgift*andel;
137 ekstraanlagsudgift(k)=anlagsudgift(k)-ref_anlagsudgift;
138 sparet(k)=sparet_el(k)-(ekstraanlagsudgift(k)+lagerprisen)*(1+levetid*DogV);
139 andel_sparet(k)=sparet(k)/ref_omkostninger;
140 tilbagebetalingstid_aar(k)=(ekstraanlagsudgift(k)+lagerprisen)/(sparet_el(k)
/levetid-(ekstraanlagsudgift(k)+lagerprisen)*DogV);
141 if tilbagebetalingstid_aar(k) < 0
142 tilbagebetalingstid_aar(k)=99;
143 end
144 forrentning(k)=1/tilbagebetalingstid_aar(k);
145
146 sparet_sum_nutidsvardi(k)=0;
147 stop_nutidsvardi=0;
148 for i=1:50
149 sparet_aarligt=(sparet_el(k)/levetid-(ekstraanlagsudgift(k)+lagerprisen)
*DogV)/(1+kalkulationsrente)^i;
150 sparet_sum_nutidsvardi(k)=sparet_sum_nutidsvardi(k)+sparet_aarligt;
151 if sparet_sum_nutidsvardi(k) >= ekstraanlagsudgift(k)+lagerprisen
152 andel_af_aar=(sparet_sum_nutidsvardi(k)-(ekstraanlagsudgift(k)
+lagerprisen))/sparet_aarligt;
153 tilbagebetalingstid2_aar(k)=i-andel_af_aar;
154 stop_nutidsvardi=1;
155 break
156 end
157 i=i+1;
158 end