new;
let x[5,5]=1 18.54138906 15.18280742 20.19485167 20.67756958  /* Defining a square matrix arbitrarily. */
           1 20.2485386 16.50769926 18.0815297 20.7747684
           1 31.59900091 28.06308547 27.54270052 32.43243376
           1 28.81043454 25.16899016 24.41148303 29.29434763
           1 29.32402566 25.62799627 24.23807729 29.53485353
let w[5,5]=1.00  0.00  0.00  0.00  0.00
           0.00  0.97  0.00  0.00  0.00
           0.00  0.00  0.65  0.00  0.00
           0.00  0.00  0.00  0.76  0.00
           0.00  0.00  0.00  0.00  0.73
let y[5,1]=900
           910
           1000
           900
           850
b=(x'*w*x)-*x'*w*y

print b;