~T0?  ^\;\D:\E8W P M\T~ 8 = m6^q8v>>BB<DHpHDB@~BfZBBBBbRJFB||~B<||~xBD<><B<<$|BB<<<$<<|~B>B~||<<|B<<~< @~D<<||>B||>B>BB~|<~$<B(FB@fBBBB@fBBBDBBHBBBFB@f@BBBb@BBHB@DBHBBBHBBBBB@BfBB@DBHBBBDHB@b@B$BBb(FFF$BFB@ff@BfB$DBBBB$@FDfBF@(B@@H(@FBBbBBbbB@B@@($@BBBb@$HBBbJB|ZBBBB|ZBBBBBBpBBJB|Z|JBBRBBRRB|B<|@@HBR||J||JJB@|@~BB~JB@H||JbD@B@D@D@BB@BDBBDB B@bD@BBB$BBFB@$$DD@DBDBBBBDBBBBBBBBBD@DBDBBBBDDD@FBBDBFbbbBbD@BB@@DBBDBBBDBBDBBBbDBB~bB@@D>Bb@DF@DFF$@DB@BB$BBFB@D@DF><B~B@B>@B~BB@B~x<<BxBB~B><<<<<B~B>B~@B<BB<<>< ~~B><<@B>B@B>B>B~B<~>BPj, <<||>B$x<<>B|B$x$> $$<D> ||>B<D> $$B~B><<||>B||>B$<|~x|~B$<<~<|><~>B|B$B$>< $$<D> ||>B<D> (FFBBb$DBBf$ ((F@BB(BBbBB$D$$$BH(BBbBH($$b@$(BFBBbBBb$@B@DB@b$(BF@BBBbBB$B$B$$BH(BBbBH(JJBBRBBBZJ|BB>B RBBB>BpBBRBpR|JBBRBBR(BRBBB >BpBBRBpRR||JB~BBR@B|BJ|BB~H||J~HJ@~H||J~Hbb@DFDBBB b@BD>BBF@BD>BD@DFBDF@$@b@DF@DFBD@DD@FBb@BD>~BF@B$B>BD@DFBD><<@B>BxB><@><<>B@<x> BB>> @B>BBB>> B~B>>~<@B>B@B>B<<@<>B@<>< BB>> @B>BBB>>  '   @ 9    $$B~B><||>B||>B$~B|~|<<<>B|B$$>~ $$<D> ||>B<D> $$B~B>7<$$b@$(FBBbBBb$@fB@BBBB@$(@F@BBBB(FbBB$$$$BH(BBbBH($$b@$388BR|(JBBRBBR|ZB|BBBB|!|J|BB><BJRBB>BpBBRBpR|3@ DJ@HR||J||J@B|@|~B|@"R@B|BBRJ|B>~H||J~HJ@38 DF@$~b@DF@DF@B@@DBBD@Bb@BD>BBbF@B>BD@DFBDF@$3 DB~B>><@B>B@B>B~B@~BB<<@<<><>B@<> BB>> @B>BBB>> B~B>3x 8  > :    [888888 # <@!T8x\\\x\xxxxxx\WX![PP!88"W K SR P  PRIPREMA PODATAKA ZA MSAVIJANJE VVK I REDUKCIJA, AKO HOCU SAMO REDUKCIJU TAD KRENI SA "RUN 1000" IME PROGRAMA "DJURO 3" 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 E"UKUCAJ IME PODATAKA";B$:"BROJ SAVIJANJA";K:"PUSTI TRAKU":B$B() 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 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 B(L,2,11 )=((Q*(B(L,2,5)-B(L,3,5)+B(L,2,6)-B(L,3,6))*25))/100d 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) 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   DJURO 3 ,