NIST: Bennett5 — Magnetización superconductora [Alta]

[ ]

Xv = [7.447168,8.102586,8.452547,8.711278,8.916774,9.087155,9.23259,9.359535,9.472166,9.573384,9.665293,9.749461,9.827092,9.899128,9.966321,10.02928,10.08851,10.14443,10.19738,10.24767,10.29556,10.34125,10.38495,10.42682,10.467,10.50564,10.54283,10.57869,10.61331,10.64678]
Yv = [-34.834702,-34.3932,-34.152901,-33.979099,-33.845901,-33.732899,-33.640301,-33.5592,-33.486801,-33.4231,-33.365101,-33.313,-33.260899,-33.2174,-33.176899,-33.139198,-33.101601,-33.066799,-33.035,-33.003101,-32.971298,-32.942299,-32.916302,-32.890202,-32.864101,-32.841,-32.817799,-32.797501,-32.7743,-32.757]
b0 = [-1500,45,0.85]

res = []
ajuste_no_lineal(Xv, Yv, 18, b0, res)
b1 = res[1]
b2 = res[2]
b3 = res[3]

b2 = res[2]
b3 = res[3]
mostrar "b1 (cert -2523.5):"
mostrar res[1]
mostrar "RSS (cert 5.24e-4):"
mostrar res[4]
n_graf = 30.0
Y_fit = [0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0]
i = 1
para i de 1 hasta 30
    Y_fit[i] = b1 * potencia(b2 + Xv[i], -1.0/res[3])
finpara
graficar_dispersion(Xv, Yv, "Datos observados")
graficar_xy(Xv, Y_fit, "Ajuste NIST")

Salida Jota: b1 (cert -2523.5): Salida Jota: -1935.616 Salida Jota: RSS (cert 5.24e-4): Salida Jota: 0.0001265

Shift + Enter ejecuta la celda actual

Ayuda de Jota