10 PRINT "Retraccion y fluencia";CHR$(13);"segun C.E.B. y EH-88":CLS:DEFCHR$(254)="826C100C02"
20 INPUT "Hr["+STR$(HR)+"%]";HR,"Fc28["+STR$(FC28)+"]";FC28,"Ac["+STR$(AC)+"]";AC,"Perimetro["+STR$(U)+"]";U
30 INPUT "T["+STR$(T)+"]";T,"T0["+STR$(T0)+"]";T0,"Incremento de ["+STR$(ST0)+"]";ST0:IF T0=0 THEN130
40 FC0=(75*T0/(28*T0+1316))^(1/2.45)*FC28:EC0=54380*CURFC0:EC28=54380*CURFC28:BA1=.8*(1-(T0/(T0+47))^(1/2.45)):BA2=T-T0:IF BA2>1THEN BA2=1
50 BA=BA1*BA2:BD=((T-T0)/(T-T0+328))^(1/4.2):L=.867+18341.6458*(110-HR)^-2.8:H0=L*2*AC/U:F=4.4E-5*H0-.357/H0-LN(H0^(1/6)/2.6):FF2=EXPF:FF1=4.45-.035*HR:FF=FF1*FF2:G1=5.02/H0+LN(6.95*H0^1.25):K1=EXPG1
60 G2=.00144*H0-1.5/H0-LN(1.005*H0^.2954):K2=EXPG2:BFT=(T/(T+K1))^K2:BFT0=(T0/(T0+K1))^K2
70 ECS1=(((.000775*HR-.1565)*HR+11.0325)*HR-303.25)*1E-5:N1=.00174*H0-.32/H0-LN(H0^.251/1.9):ECS2=EXPN1:ECS0=ECS1*ECS2:N2=-.00257*H0+.32/H0+LN(.22*H0^.4):K3=11.8*H0+16
80 K4=EXPN2:BST=(T/(T+K3))^K4:BST0=(T0/(T0+K3))^K4:ECS=ECS0*(BST-BST0):F28=BA+.4*BD+FF*(BFT-BFT0)
90 J=1/EC0+F28/EC28:E=ST0*J+ECS
100 PRINT "Fc(T0)=";FC0,"Ec(T0)=";EC0,"Ec(28)=";EC28,"a(T,T0)=";BA,"d(T,T0)=";BD,"=";L,"ho=";H0,"f(ho)=";F
110 PRINT "f1=";FF1,"f2=";FF2,"f=";FF,"g1(ho)=";G1,"g2(ho)=";G2,"K1(ho)=";K1,"K2(ho)=";K2,"f(T)=";BFT,"f(T0)=";BFT0,"cs1=";ECS1,"n1=";N1,"cs2=";ECS2,"cso=";ECS0
120 PRINT "K3=";K3,"n2=";N2,"K4=";K4,"s(T)=";BST,"s(T0)=";BST0,"cs(T,T0)=";ECS,"28(T,T0)=";F28,"J(T,T0)=";J,"(T,T0)=";E:GOTO 30
130 L=.867+18341.6458*(110-HR)^-2.8:H0=L*2*AC/U
140 ECS1=(((.000775*HR-.1565)*HR+11.0325)*HR-303.25)*1E-5:N1=.00174*H0-.32/H0-LN(H0^.251/1.9):ECS2=EXPN1:ECS0=ECS1*ECS2:K3=11.8*H0+16:N2=-.00257*H0+.32/H0+LN(.22*H0^.4)
150 K4=EXPN2:BST=(T/(T+K3))^K4:BST0=(T0/(T0+K3))^K4:ECS=ECS0*(BST-BST0)
160 PRINT "cs1=";ECS1,"n1=";N1,"cs2=";ECS2,"cso=";ECS0
170 PRINT "K3=";K3,"n2=";N2,"K4=";K4,"s(T)=";BST,"s(T0)=";BST0,"cs(T,T0)=";ECS:GOTO30
