// ==================================================================
//  pi4.sci: 式(1.8)の第n項目までの和を返すScilab関数 
// ==================================================================
function Sn = pi4(n);
  Sn = 0;
  for k = n:-1:0
    Sn = Sn+((-1)^k)/(2*k+1)
  end
endfunction