%%HP: T(1)A(D)F(.);
DIR
  Wvar
    
"Calculo de o y Ve"
{
":Valor  de m:
:Valor de  b:"
{ 1 0 } V } INPUT
OBJ 'b' STO 'm'
STO 'EXP(-b/m)'
NUM 'o' STO 'o'
NUM 'o' SWAP = 1
LIST 'EXP(m*LN(o)
+b)' NUM 'Ve' SWAP
= 1 LIST { o m b
} PURGE
    
  tabla
    
"Lista de Esfuerzos
de Fractura (MPa):"
"" INPUT OBJ ''
STO
"Numero de Datos"
"" INPUT OBJ 'N'
STO
"Lista de Iteraciones
{1 2...N}"
"" INPUT OBJ 'I'
STO '(I-.5)/N' NUM
'F' STO 'F' NUM '
LN()' NUM 'X' STO
'X' NUM 'LN(LN(1/(
1-F)))' NUM 'Y'
STO 'Y' NUM 'X'
NUM LIST DROP { N
1 } ARRY 'MX' STO
'Y' NUM LIST DROP
{ N 1 } ARRY 'MY'
STO 'MX' NUM 'MY'
NUM 2 COL+
'matrix' STO { Y X
F  N I } PURGE
    
  exit
     UPDIR
    
  Esf4
    DIR
      
         UPDIR
        
      f.m
        
"Lista de Fuerzas
de Fractura(N)"
"" INPUT OBJ 'P'
STO
"Longitud entre
Apoyos(m)"
"" INPUT OBJ 'L'
STO
"Lista de Ancho 
de Muestras(m)"
"" INPUT OBJ 'b'
STO
"Lista de Altura
de Muestras(m)
"
"" INPUT OBJ 'd'
STO '3*P*L/(4*b*d^2
)/1000000' NUM { 
L P b d } PURGE
SORT UPDIR 'Dat'
STO
        
      f.cm
        
"Lista de Fuerzas
de Fractura (N)"
"" INPUT OBJ 'P'
STO
"Longitud entre
Apoyos(cm)"
"" INPUT OBJ 'L'
STO
"Lista de Ancho 
de Muestras (cm)"
"" INPUT OBJ 'b'
STO
"Lista de Alturas
de  Muestras (cm)"
"" INPUT OBJ 'd'
STO '3*P*(L/100)/(4
*(b/100)*(d/100)^2)
/1000000' NUM { 
P L b d } PURGE
SORT UPDIR 'Dat'
STO
        
      f.mm
        
"Lista de Fuerzas
de Fractura(N)"
"" INPUT OBJ 'P'
STO
"Longitud entre 
Apoyos(mm)"
"" INPUT OBJ 'L'
STO
"Lista de Ancho
de Muestras(mm)"
"" INPUT OBJ 'b'
STO
"Lista de Altura 
de Muestra(mm)
"
"" INPUT OBJ 'd'
STO '3*P*(L/1000)/(
4*(b/1000)*(d/1000)
^2)/1000000' NUM {
L  P b d } PURGE
SORT UPDIR 'Dat'
STO
        
    END
  Esf3
    DIR
      
         UPDIR
        
      f.mm
        
"Lista de Fuerzas
de Fractura(N)"
"" INPUT OBJ 'P'
STO
"Longitud entre 
Apoyos(mm)"
"" INPUT OBJ 'L'
STO
"Lista de Ancho
de Muestras(mm)"
"" INPUT OBJ 'b'
STO
"Lista de Altura 
de Muestra(mm)
"
"" INPUT OBJ 'd'
STO '3*P*(L/1000)/(
2*(b/1000)*(d/1000)
^2)/1000000' NUM {
L  P b d } PURGE
SORT UPDIR 'Dat'
STO
        
      f.cm
        
"Lista de Fuerzas
de Fractura (N)"
"" INPUT OBJ 'P'
STO
"Longitud entre
Apoyos(cm)"
"" INPUT OBJ 'L'
STO
"Lista de Ancho 
de Muestras(cm)"
"" INPUT OBJ 'b'
STO
"Lista de Alturas
de  Muestras(cm)"
"" INPUT OBJ 'd'
STO '3*P*(L/100)/(2
*(b/100)*(d/100)^2)
/1000000' NUM { 
L P b d } PURGE
SORT UPDIR 'Dat'
STO
        
      f.m
        
"Lista de Fuerzas
de Fractura(N)"
"" INPUT OBJ 'P'
STO
"Longitud entre
Apoyos(m)"
"" INPUT OBJ 'L'
STO
"Lista de Ancho 
de Muestras(m)"
"" INPUT OBJ 'b'
STO
"Lista de Altura
de Muestras(m):
"
"" INPUT OBJ 'd'
STO '3*P*L/(2*b*d^2
)/1000000' NUM { 
L P b d } PURGE
SORT UPDIR 'Dat'
STO
        
    END
  email
    
"jsnorkel@yahoo.com
Presion ENTER para 
salir"
"" INPUT OBJ
    
  ecuacion 'F=1-EXP
(-Ve*(/o)^m)'
  CLS
     { matrix MY
MX  DAT PAR Dat
m o Ve F EQ }
PURGE
    
  AUTOR
    
"Julio C. Tobar
Ingenieria UCA
CC. Materiales
......J&P......
  EL SALVADOR"
MSGBOX
    
END
