function TaylorPhi02() {
with (document.taylor02) {
  var A = parseInt(a.value);
  if (a.value == "") A = 0;
  var phi5 = Math.pow(((Math.sqrt(5) - 1) / 2), 5)
  var hiba = 0
  var n  = 0
  var n1 = 0
  var n2 = 0
  var n3 = 0
  var fibn  = 0
  var fibn1 = 0
  var fibn2 = 0
  var fibn3 = 0
  var fibon1 = 1
  var fibon2 = 1

  var i = 0
  var j = 0
  var x = 0
  var s = 0
  var pm = -1
  var ej = -1

  for(i = 1; i <= A; i++) {
    ej *= pm;
    n += 2;
    n1 = n / 2;
    n2 = n1 + 1;
    n3 = n1 + 3;
    fibon1 = 1;
    fibon2 = 1;
    for(j = 2; j <= n; j++) {
      x = fibon1 + fibon2;
      fibon1 = fibon2;
      fibon2 = x;
    }
    fibn1 = fibon1;
    fibon1 = 1;
    fibon2 = 1;
    for(j = 2; j <= n1; j++) {
      x = fibon1 + fibon2;
      fibon1 = fibon2;
      fibon2 = x;
    }
    fibn2 = fibon1;
    for(j = n1; j < n2; j++) {
      x = fibon1 + fibon2;
      fibon1 = fibon2;
      fibon2 = x;
    }
    fibn3 = fibon1;
    for(j = n2; j < n3; j++) {
      x = fibon1 + fibon2;
      fibon1 = fibon2;
      fibon2 = x;
    }
    fibn4 = fibon1;
    x = fibn1 / fibn2 / fibn2 / fibn3 / fibn4;
    x *= ej;
    s += x;
    hiba = s - phi5;
  }
  xn.value = n
  f1.value = fibn1
  f2.value = fibn2
  f3.value = fibn3
  f4.value = fibn4
  s1.value = x
  s2.value = s
  s3.value = hiba
 }
}