T\H?\KD:\={E8W P P P 88  MM\XX;T>>BB<DHpHDB@~BfZBBBBbRJFB888888# # <@!P8={\\\B{\>{>{A{T@{@{@{\X![@@P!88"W K SR P  PRIPREMA PODATAKA ZA MSAVIJANJE VVK I REDUKCIJA, AKO HOCU SAMO REDUKCIJU TAD KRENI SA "RUN 1000" $CRTA GRAFIKEIME PROGRAMA "DJURO 4" 2)A(40(,5,19):K=1 <:1;"SAVIJANJE ";K: d "DATUM: "; nGI=13:"D";(I);"=";A(K,1,I):A(K,1,I);" ";:I x:"SRED. TREN.: "; OI=47:"v";(I-3);"=";A(K,1,I):A(K,1,I);" ";:I :"TEMPERATURE: "; PI=810 :"T";(I-7);"=";A(K,1,I):A(K,1,I);" ";:I K:"VLAZNOST: ";:"VLAZNOST=";A(K,1,11 ):A(K,1,11 ) "MET.USLOVI: "; ^I=12 13 :"MET.U.: ";(I-11 );" ";A(K,1,I);:A(K,1,I);" ";:I :"KOLIMATOR: "; UI=1415:"KOL.";(I-13 );"=";A(K,1,I):A(K,1,I);" ";:I R:"POC.POL.: ";:"1(E) ILI 2(W) : ";A(K,1,16):A(K,1,16) ܴ"MINUT KRUGA: ";:"MINUT KRUGA: ";A(K,1,17);:A(K,1,17):A(K,1,18)=1:"POSMATRAC ";A(K,1,18):"_": J=25 :1;"RED ";J-1: I"KRUG:";:I=18:"K";(I);"=";A(K,J,I):7;A(K,J,I):I U"LIBELE:";:I=9 12 :"L";(I-8);"=";A(K,J,I);:9 ;A(K,J,I):I ]"MIKROMETAR: ";:I=13 19:"M";(I-12 );"=";A(K,J,I);:13 ;A(K,J,I):I J 2"DALJE ? ";Q:Q0K=K+1:60< "gB(K,5,19):L=1K:J=15:I=119:B(L,J,I)=A(L,J,I):I:J:L ,:1;"SNIMANJE !!!" 6 "IME PODATAKA: ";A$ @A$B() J. "NOVO SNIMANJE ? ";Q:Q0320@ T-:"VRATI TRAKU ZA VERIFIKACIJU !!!":A$B() Y!"POCINJE STAMPANJE SA CONTINUE" ^ h 1050  S=0 D(84T,5) M=14 E"UKUCAJ IME PODATAKA";B$:"BROJ SAVIJANJA";K:"PUSTI TRAKU":B$B() "NESMETAJ RADIM" A(30,5,19) PL=1K:J=15:I=119:A(L,J,I)=B(L,J,I):I:J:L :/1 L L=1K Q S=S+1 VB(L,1 ,19)=0 `J=25 jB(L,J,1)=(A(L,J,8)+A(L,J,7)+A(L,J,4)+A(L,J,3)-a(L,J,6)-A(L,J,5)-A(L,J,2)-A(L,J,1))/40( tuB(L,J,2)=(A(L,J,10 )-A(L,J,9 ))/10 :B(L,J,3)=(A(L,J,12 )-A(L,J,11 ))/10 ~~B(L,J,4)=0:I=18:B(L,J,4)=B(L,J,4)+A(L,J,I):I:B(L,J,4)=B(L,J,4)/80P B(L,J,5)=(A(L,J,9 )+A(L,J,10 ))/20-20:B(L,J,6)=(A(L,J,11 )+A(L,J,12 ))/20-20 B(L,J,7)=-B(L,J,5)*(.914il+.0028x74m*(A(L,1,8)-15)+.007ye`A*(B(L,J,2)-19)-.0018wkC*B(L,J,5)-.00082vVD*B(L,J,5)*B(L,J,5)+.06oIS*B(L,J,5)*B(L,J,5)*B(L,J,5)*B(L,J,5)) B(L,J,8)=-B(L,J,6)*(.900ffff+.0022x- *(A(L,1,8)-15)+.008zn*(B(L,J,3)-19)+.0009vkC*B(L,J,6)+.00176wf*B(L,J,6)*B(L,J,6)-.000021q0)(*B(L,J,6)*B(L,J,6)*B(L,J,6)*B(L,J,6)) B(L,J,9 )=0:I=1419:B(L,J,9 )=B(L,J,9 )+A(L,J,I):I:B(L,J,9 )=B(L,J,9 )/6000p LB(L,1,19)=B(L,1,19)+A(L,J,13 )+B(L,J,9 ) J }B(L,1,19)=B(L,1,19)/4:A(L,1,19)=((1000*B(L,1,19)))/1000 xJ=25:B(L,J,10 )=B(L,J,4)+(B(L,J,7)+B(L,J,8))/2+(B(L,1,19)-A(L,J,13 )-B(L,J,9 ))*20 J 7A(L,1,16)=2Q=-1:1520 ;Q=1:A(L,1,16)1"GRESKA 1,-1";Q  1820 B(L,3,11 )=((Q*(B(L,2,5)-B(L,3,5)-B(L,2,6)+B(L,3,6))*502))/100d B(L,4,11 )=((Q*(B(L,5,5)-B(L,4,5)+B(L,5,6)-B(L,4,6))*25))/100d B(L,5,11 )=((Q*(B(L,5,5)-B(L,4,5)-B(L,5,6)+B(L,4,6))*502))/100d TB(L,2,12 )=((Q*(B(L,3,7)-B(L,2,7)+B(L,3,8)-B(L,2,8))*25))/100d ^B(L,3,12 )=((Q*(B(L,3,7)-B(L,2,7)-B(L,3,8)+B(L,2,8))*502))/100d hB(L,4,12 )=((Q*(B(L,4,7)-B(L,5,7)+B(L,4,8)-B(L,5,8))*25))/100d rB(L,5,12 )=((Q*(B(L,4,7)-B(L,5,7)-B(L,4,8)+B(L,5,8))*502))/100d B(L,2,13 )=((1000*(B(L,3,7)-B(L,2,7))/(B(L,2,5)-B(L,3,5))))/1000 ŠB(L,3,13 )=((1000*(B(L,4,7)-B(L,5,7))/(B(L,5,5)-B(L,4,5))))/1000 ̊B(L,4,13 )=((1000*(B(L,3,8)-B(L,2,8))/(B(L,2,6)-B(L,3,6))))/1000 ֊B(L,5,13 )=((1000*(B(L,4,8)-B(L,5,8))/(B(L,5,6)-B(L,4,6))))/1000 aB(L,2,14)=((Q*500*(B(L,3,10 )-B(L,2,10 ))))/1000 &aB(L,3,14)=((Q*500*(B(L,4,10 )-B(L,5,10 ))))/1000 0MB(L,4,14)=(B(L,2,14)+B(L,3,14))/2 :CB(L,5,14)=B(L,2,14)-B(L,3,14) ? 4000 DGB(L,2,15)=Q*B(L,5,14):B(L,3,15)=(((B(L,2,10 )+B(L,3,10 ))*502))/100d:B(L,4,15)=(((B(L,4,10 )+B(L,5,10 ))*502))/100d:B(L,5,15)=((100d*(B(L,3,15)-B(L,4,15))))/100d n15;"SAVIJANJE OD ";A(L,1,1);".";A(L,1,2);".";A(L,1,3);". ";L: -" VREME TEMPERATURE VLAZNOST" 1:I=411 :A(L,1,I);" ";:I ?:"MET.USLOVI, KOLIMAT., POC.POL., MIN.KRUG, DJURO, SR.OBRT" 1:I=12 19:A(L,1,I);" ";:I : 9J=25:I=18:A(L,J,I);" ";:I .:I=9 19:A(L,J,I);" ";:I::J   7"RAZ.DI,DUZ.MEH G-D,MER,KAL NAG I RAZ,PARS G-D,KRUG," :J=25:B(L,J,1);" ";B(L,J,2);" ";B(L,J,3);" ";B(L,J,11 );" ";B(L,J,12 );" ";B(L,J,13 );" ";((100d*B(L,J,10 )))/100d;" ":J 1:" SAVIJANJE I RAZLIKA MESTO ZEN. I RAZLIKA "  :B(L,2,14);" ";B(L,3,14);" ";B(L,4,14);" ";B(L,5,14);" ";B(L,2,15);" ";B(L,3,15);" ";B(L,4,15.);" ";B(L,5,15) *:: 4L  6D(S,1)=B(L,4,14)*44,+88X 6D(S,2")=B(L,5,14)*44,+88X VD(S,3)=(A(L,1,1)+(A(L,1,2)-1)*30)*.73333 LD(S,4)=(A(L,1,6)+A(L,1,7)/60<)*10 6D(S,5)=(A(L,1,8)+20)*5 L:M :=# :/1 :^1 &J=12:I=35 a:0,0:255,0:0,175:-255,0:0,-175 L=184T D(L,I),D(L,J)  L::I:J: " DJURO 4 rRr