HB: MCFE — Astrofísica no-LTE — transferencia radia [RUA 765×765]

[ ]

; Harwell-Boeing — MCFE (RUA)
; 765x765 NNZ=24382
valores = [1571.864990000000034,38365.468800000002375,13600.123999999999796,3854.13110000000006,3174.767330000000129,2500.307130000000143,9068.639649999999165,1856.441890000000058,17582.593799999998737,869.274901999999997,431034.843999999982771,554347.062999999965541,216312.625,88137.601599999994505,8137.189449999999852,8.439903259999999,4685.779300000000148,187.842590000000001,-353470.5,6452.999509999999646,2173.97533999999996,1821.324460000000045,1461.542599999999993,1407.354859999999917,1107.84680000000003,564.829102000000034,541.26348900000005,89160.523400000005495,9004.983399999999165,155.21279899999999,208008.453000000008615,4344.741699999999582,5.94218779,4572.635739999999714,38.603683500000002,9055.786130000000412,-222494.344000000011874,1209.28394000000003,1040.110840000000053,858.332457999999974,830.123047000000042,670.098145000000045,360.504912999999988,346.422667999999987,217.171143000000001,174.292556999999988,105.600548000000003,5760.539550000000418,186892.73399999999674,4.3623414,3682.941409999999905,2.32022905,1218.290649999999914,482.903167999999994,-27027.613300000000891,145.341675000000009,129.305556999999993,126.530784999999995,109.099632,66.702072099999995,64.488159199999998,42.906650499999998,35.2079582,22567.724600000001374,7.87909555,6.12662077,1.04243875,746.86889599999995,2.47157383,2283.691650000000209,929.320007000000032,325.195129000000009,-6768.986329999999725,151.751342999999991,148.872498000000007,130.455811000000011,82.380844100000004,79.763847400000003,53.8143387,44.378677400000001,28.266771299999998,10.1465397,7.90668535,1.35919738,137.733062999999987,5.75944138,1545.199339999999893,646.642151000000013,243.946121000000005,127.954459999999997,-7111.791019999999662,387.067748999999992,344.291076999999973,227.721313000000009,220.959655999999995,152.089157,126.307013999999995,81.453834499999999,29.741863299999999,23.243009600000001,4.05012512,1387.971309999999903,6.11503553,1562.82483000000002,656.877869000000032,250.730194000000012,131.847214000000008,406.556213000000014,-38081.265599999998813,372.684204000000022,248.592575000000011,241.309463999999991,166.726394999999997,138.645294000000007,89.616340600000001,32.824436200000001,25.665334699999999,24220.431599999999889,1606.0317399999999,2.75804949,1250.130000000000109,538.826964999999973,219.686035000000004,117.405570999999995,367.475280999999995,378.712616000000025,-5141.50391000000036,132.200866999999988,128.699264999999997,91.337204,76.656898499999997,50.343830099999998,18.834692,14.7781372,2.6232338,515.020569000000023,3.49579,551.593567000000007,250.870040999999986,116.237221000000005,64.162040700000006,210.345276000000013,218.616837000000004,114.409217999999996,-22304.005900000000111,234.625060999999988,183.612914999999987,159.960190000000011,111.825705999999997,45.210601799999999,35.905143700000004,6.72505188,2797.695070000000214,1.43221915,593.596374999999966,270.722472999999979,126.201988,69.765129099999996,229.204147000000006,238.31433100000001,125.078629000000006,263.484313999999983,-3152.752689999999802,77.065910299999999,67.344482400000004,47.322479199999997,19.249076800000001,15.301068300000001,2.87712145,443.490448000000015,0.124831237,57201.320299999999406,28.853300099999998,14.275333399999999,8.002132420000001,26.821504600000001,27.993394899999998,15.0914211,35.055728899999998,13.1020041,-493964.563000000023749,7.69568062,5.81386042,2.57680273,2.07372236,80.430687000000006,68.773940999999994,0.0983388573,2046.822509999999966,17.1097565,8.65513992,4.87588787,16.458261499999999,17.199981699999999,9.35848045,22.565204600000001,8.45958424,5.68615437,-533754.25,5.24688339]
suma_cuad = 0.0
i = 1
para i de 1 hasta 200
    suma_cuad = suma_cuad + valores[i] * valores[i]
finpara
frob_m = raiz(suma_cuad)
frob_t = raiz(suma_cuad * 121.909999999999997)
mostrar "=== MCFE: 765x765 NNZ=24382 ==="
mostrar "Tipo: RUA — Fluidos/quimica (asim.)"
mostrar "Sparsidad (%):"
mostrar 4.1663
mostrar "Frob Jota (muestra 200/24382):"
mostrar frob_m
mostrar "Frob estimada total:"
mostrar frob_t
mostrar "Frob referencia: 200894040622674144.0000"
mostrar "Max valor:"
mostrar maximo(valores)
mostrar "Min valor:"
mostrar minimo(valores)
graficar_histograma(valores, 20, "MCFE valores")

Salida Jota: === MCFE: 765x765 NNZ=24382 === Salida Jota: Tipo: RUA — Fluidos/quimica (asim.) Salida Jota: Sparsidad (%): Salida Jota: 4.166 Salida Jota: Frob Jota (muestra 200/24382): Salida Jota: 1160532.604 Salida Jota: Frob estimada total: Salida Jota: 12813772.576 Salida Jota: Frob referencia: 200894040622674144.0000 Salida Jota: Max valor: Salida Jota: 554347.063 Salida Jota: Min valor: Salida Jota: -533754.250

Shift + Enter ejecuta la celda actual

Ayuda de Jota