じゅうかいい８８８ - 経済統計練習帳

<!DOCTYPE html>
<html lang="ja">
    <head>
        <meta charset="utf-8" />
        <script src="sample.js"></script>
        <script src="ols.js"></script>
        <script src="jquery.js"></script>   
        <title>パチンコ</title>
    </head>
    <body onload="sample()">
        <p id="memo"></p>
    </body>
</html>
 
var x1 = new Array();
 var x2 = new Array();
 var y = new Array();
 var x = new Array();
var datanumber,number;
 
 
function sample() {
 
        var query = "SELECT * FROM " +
            '1xNpHJVmr3Q-XXSGQoMD7yy6u3xNm_2CJFD0HfUUR';
        var encodedQuery = encodeURIComponent(query);
 
        var url = ['https://www.googleapis.com/fusiontables/v1/query'];
        url.push('?sql=' + encodedQuery);
        url.push('&key=AIzaSyAH0WCAXRIdHdbI-6bnMSN4kVDDZZmGyqY');
        url.push('&callback=?');
 
 
 
 
 
        $.ajax({
            url: url.join(''),
            dataType: 'jsonp',
            success: function (data) {
                var rows = data['rows'];
 
 
 
                sx = 0;
 
                for (var i in rows) {
                    sx = sx + 1;
                    y[sx]=rows[i][3];
  x1[sx]=rows[i][1];
  x2[sx]=rows[i][2];
 
                }
 
 
                datanumber = sx;
 number=3;
 
 for(s=1;s<datanumber+1;s++){
 x[s]=new Array();    
 }
 
 for(s=1;s<datanumber+1;s++){
 x[s][1]=1;
 x[s][2]=x1[s];
 x[s][3]=x2[s];  
 }
 
 
 
 ols();
 
 
$("#memo").html(sol[1]);
 
 
 
 
 
            }
        });
 
}
 
 
var sol=new Array();
 
 
function ols(){
 
for(s=1;s<number+1;s++){
a[s]=new Array();    
}
 
 
for(s1=1;s1<number+1;s1++){ 
b1=0;    
for(s=1;s<datanumber+1;s++){
b1=b1+y[s]*x[s][s1];    
}    
b[s1]=b1;
}
 
 
 
 
for(s1=1;s1<number+1;s1++){ 
for(s2=1;s2<number+1;s2++){ 
a1=0;    
for(s=1;s<datanumber+1;s++){
a1=a1+x[s][s2]*x[s][s1];    
}    
a[s1][s2]=a1;
}
}
 
 
 
 
 
for(s1=1;s1<number+1;s1++){
for(s2=1;s2<number+1;s2++){
z=a[s2][s1]/a[s1][s1];
if(s1==s2)z=0;
for(s=1;s<number+1;s++){
a[s2][s]=a[s2][s]-z*a[s1][s];
}
b[s2]=b[s2]-z*b[s1]
}
}
 
for(s=1;s<number+1;s++){
sol[s]=b[s]/a[s][s];
}
 
 
 
 
}