¿Quién puede ayudarme a convertir este programa de Matlab en un programa de Mathematica? Urgente, urgente, muchas gracias!
(*Tenga en cuenta el formato de la matriz *)
x={
{99.3600,380952974700.0000,104.8900,1.6400, 9.0500,8.2800,101452980.1100, 1167334984012.1600,102.1300,228127.0000,5304940.0000,29817.0000},
{92.1100,46661026700 0.0000,111.6500,4.3300,5.4400,8.1600.75883744.8300,861424359113.9300,94.6000,1253922.0000,8087900.0000,85194.0000} ,
{109.1000,305694698312.7900,110.8800,2.6900.4.1700,8.4000,457459478.2500,1179235081612.4700,110.0600,468307.0000,67 7090.0000,63273.0000},
{109.1000,595020144866.6500,. 2.0100, 4.5700,4.3000,783157007.2100,5007646096891.2900,109.2600,1993306.0000,1930440.0000,65491.0000}, 5492321 5.5300,107.1300,1.4400,8.5100,23.8000,18848868.8700,704821878325.1800,101.1000,162951.0000,62990.0000, 22051.0000},
{104.6500,365675537000.0000,111.7600,2.1400,5.0200,9.3900,27417364.3700,89952506168.7600,104.3300,87487.000 0,670.0000, 5195.0000} ,
{101.2900,366895501851.6100,101.8200,1.9400,8.5100, 5.5800,11549288.9200,1258455637300.0000,103.9700,309613.0000.1539200.0000,9674.0000},
{100.8500,392520087435.9700,10 6.2700,0.7600,9.5300 ,8.6500,19599155.2300,48932431697.2000,101.4400.82859.0000,305990.0000,25023.0000}, p>
{96.3600,347542443470.0800,99.6000,1.2600,9.6900,18.0100,22939492.6400, 1297226915351.5100,99.0900,29917.0000,172930.00 00 ,15043.0000},
{97.3700,100.0000,99.6400,4.6800,16.2100,9.2600 .158995068.0700, 15077285740
000.0000,98.4000,1688822.0000,3021080.0000,226205.0000}
};
m=dimensión[x][[1]];
n=dimensión[x ][[2]];
y=Tabla[0, {i, m}, {j, n}];
(*Normalización de matriz original*)
Para[i = 1, i <= n, i++, y[[Todos, i]] = x[[Todos, i]]/ Total [x][[i]]]
p=Tabla[0, {j, n}];
s=Tabla[0, {j, n}];
Para[L = 1, L < = n, L++,
s[[L]]=0;
Para[j = 1, j <= m, j++,
p[ [L]]]=y[[j,L]]*Registro[ y[[j,L]]];
p[[L];
s [[ L]]=s[[L]]+p[[L]];
]
]
k=(Log[m] )^ (-1.);
e=-k*s;
h=Tabla[1, {j, n}] - e
( * Valor de peso estándar*)
w=h/Sum[h[[i]], {i, n}]
Sum[w[[i]], {i , n}]
(*Calcular la puntuación integral*)
g=y.w