<SCRIPT>
function MakeArray(n){
  this.length=n;
}
function DecToBin(a, n) { // n비트 바이너리 화 및 파일로 기록
  var z = a;
  var ch = new MakeArray(n);
  a=Math.abs(a);
  for (i=0;i < n; i++) {
    if( a % 2 == 1) {
      ch[i] = 1;
      a-=1;
    }else ch[i] = 0;
      a/=2;
  }
  if (z < 0) document.write("-");
  for (i=0; i < n; i++)
    fileObj.Write(ch[n-1-i]);
}
 
//window.setTimeout('window.location.reload()',1000 * 5);//5초 리프레시

document.write('ROMiq Table<br>');
var iq_i = 1;
var iq_var;

  filePath='rom_iq.txt';
  var ForReading=1,ForWriting=2; //  화일/읽기 쓰기 지정을 쉽게하기 위한 변수를 만든다.
  fso=new ActiveXObject('Scripting.FileSystemObject'); // ActiveXObject 개체를 생성한다.
  fileObj=fso.CreateTextFile(filePath,true); // 쓰기 위한 화일을 변수에 개체를 할당한다.

while(iq_i<8193){
 var iq = Math.pow(iq_i,4/3);
 iq_int = parseInt(iq, 10); // 정수 부분 구하기
 iq_flt = parseInt((iq - iq_int)*10000,10);//소수점 4자리 구하기

    DecToBin(iq_int, 10); // 문자를 순차적으로 기록한다.
    fileObj.Write('_'); // 문자를 순차적으로 기록한다.
    DecToBin(iq_flt, 14); // 문자를 순차적으로 기록한다.
 if(iq_i!=8192)
  fileObj.WriteBlankLines(1); // 빈줄을 1줄 기록한다.
 iq_i++;
}
  fileObj.Close(); // 화일을 닫는다.
</SCRIPT>