PRUEBA EXTERNA - signo negativo en bucle para

[ ]

y1 = 1.0
h1 = 0.01
para i = 1 hasta 1
  p1 = -1.0 * y1
  q1 = -1.0 * (y1 + h1 * 0.5 * p1)
  r1 = -1.0 * (y1 + h1 * 0.5 * q1)
  s1 = -1.0 * (y1 + h1 * r1)
  y1 = y1 + h1 * (p1 + 2.0*q1 + 2.0*r1 + s1) / 6.0
finpara
mostrar formato(y1, 6)
y5 = 1.0
h5 = 0.01
para i = 1 hasta 5
  p5 = -1.0 * y5
  q5 = -1.0 * (y5 + h5 * 0.5 * p5)
  r5 = -1.0 * (y5 + h5 * 0.5 * q5)
  s5 = -1.0 * (y5 + h5 * r5)
  y5 = y5 + h5 * (p5 + 2.0*q5 + 2.0*r5 + s5) / 6.0
finpara
mostrar formato(y5, 6)
y10 = 1.0
h10 = 0.01
para i = 1 hasta 10
  p10 = -1.0 * y10
  q10 = -1.0 * (y10 + h10 * 0.5 * p10)
  r10 = -1.0 * (y10 + h10 * 0.5 * q10)
  s10 = -1.0 * (y10 + h10 * r10)
  y10 = y10 + h10 * (p10 + 2.0*q10 + 2.0*r10 + s10) / 6.0
finpara
mostrar formato(y10, 6)
y20 = 1.0
h20 = 0.01
para i = 1 hasta 20
  p20 = -1.0 * y20
  q20 = -1.0 * (y20 + h20 * 0.5 * p20)
  r20 = -1.0 * (y20 + h20 * 0.5 * q20)
  s20 = -1.0 * (y20 + h20 * r20)
  y20 = y20 + h20 * (p20 + 2.0*q20 + 2.0*r20 + s20) / 6.0
finpara
mostrar formato(y20, 6)
y30 = 1.0
h30 = 0.01
para i = 1 hasta 30
  p30 = -1.0 * y30
  q30 = -1.0 * (y30 + h30 * 0.5 * p30)
  r30 = -1.0 * (y30 + h30 * 0.5 * q30)
  s30 = -1.0 * (y30 + h30 * r30)
  y30 = y30 + h30 * (p30 + 2.0*q30 + 2.0*r30 + s30) / 6.0
finpara
mostrar formato(y30, 6)
y40 = 1.0
h40 = 0.01
para i = 1 hasta 40
  p40 = -1.0 * y40
  q40 = -1.0 * (y40 + h40 * 0.5 * p40)
  r40 = -1.0 * (y40 + h40 * 0.5 * q40)
  s40 = -1.0 * (y40 + h40 * r40)
  y40 = y40 + h40 * (p40 + 2.0*q40 + 2.0*r40 + s40) / 6.0
finpara
mostrar formato(y40, 6)
y50 = 1.0
h50 = 0.01
para i = 1 hasta 50
  p50 = -1.0 * y50
  q50 = -1.0 * (y50 + h50 * 0.5 * p50)
  r50 = -1.0 * (y50 + h50 * 0.5 * q50)
  s50 = -1.0 * (y50 + h50 * r50)
  y50 = y50 + h50 * (p50 + 2.0*q50 + 2.0*r50 + s50) / 6.0
finpara
mostrar formato(y50, 6)
y60 = 1.0
h60 = 0.01
para i = 1 hasta 60
  p60 = -1.0 * y60
  q60 = -1.0 * (y60 + h60 * 0.5 * p60)
  r60 = -1.0 * (y60 + h60 * 0.5 * q60)
  s60 = -1.0 * (y60 + h60 * r60)
  y60 = y60 + h60 * (p60 + 2.0*q60 + 2.0*r60 + s60) / 6.0
finpara
mostrar formato(y60, 6)
y70 = 1.0
h70 = 0.01
para i = 1 hasta 70
  p70 = -1.0 * y70
  q70 = -1.0 * (y70 + h70 * 0.5 * p70)
  r70 = -1.0 * (y70 + h70 * 0.5 * q70)
  s70 = -1.0 * (y70 + h70 * r70)
  y70 = y70 + h70 * (p70 + 2.0*q70 + 2.0*r70 + s70) / 6.0
finpara
mostrar formato(y70, 6)
y80 = 1.0
h80 = 0.01
para i = 1 hasta 80
  p80 = -1.0 * y80
  q80 = -1.0 * (y80 + h80 * 0.5 * p80)
  r80 = -1.0 * (y80 + h80 * 0.5 * q80)
  s80 = -1.0 * (y80 + h80 * r80)
  y80 = y80 + h80 * (p80 + 2.0*q80 + 2.0*r80 + s80) / 6.0
finpara
mostrar formato(y80, 6)
y90 = 1.0
h90 = 0.01
para i = 1 hasta 90
  p90 = -1.0 * y90
  q90 = -1.0 * (y90 + h90 * 0.5 * p90)
  r90 = -1.0 * (y90 + h90 * 0.5 * q90)
  s90 = -1.0 * (y90 + h90 * r90)
  y90 = y90 + h90 * (p90 + 2.0*q90 + 2.0*r90 + s90) / 6.0
finpara
mostrar formato(y90, 6)
y100 = 1.0
h100 = 0.01
para i = 1 hasta 100
  p100 = -1.0 * y100
  q100 = -1.0 * (y100 + h100 * 0.5 * p100)
  r100 = -1.0 * (y100 + h100 * 0.5 * q100)
  s100 = -1.0 * (y100 + h100 * r100)
  y100 = y100 + h100 * (p100 + 2.0*q100 + 2.0*r100 + s100) / 6.0
finpara
mostrar formato(y100, 6)

Salida Jota: 0.990050 Salida Jota: 0.951229 Salida Jota: 0.904837 Salida Jota: 0.818731 Salida Jota: 0.740818 Salida Jota: 0.670320 Salida Jota: 0.606531 Salida Jota: 0.548812 Salida Jota: 0.496585 Salida Jota: 0.449329 Salida Jota: 0.406570 Salida Jota: 0.367879

Shift + Enter ejecuta la celda actual

Ayuda de Jota