home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 3 / FREEWARE.BIN / towns_os / tvi / tvi_src.lzh / C / MKTBL.C < prev    next >
C/C++ Source or Header  |  1990-10-24  |  829b  |  35 lines
  1. /******************************************************************************
  2. $Header: mktbl.cv  1.3  90/10/24 13:30:56  Nam  Rel $
  3.         ベクトル計算用テーブルを作る
  4.         "run386 mktbl"とでもして使って下さい
  5. *******************************************************************************/
  6. #include <stdio.h>
  7. #include <math.h>
  8.  
  9. extern    void exit();
  10.  
  11. void main ()
  12. {
  13.     FILE    *fp;                /*** ファイル構造体 ***/
  14.     int        i,j,k;
  15.     unsigned long    t;
  16.     unsigned short    p;
  17.  
  18.     fp=fopen("tvi_rec.vct","wb");                /*** ファイルをOpen ***/
  19.     if (fp==NULL) {
  20.         exit(1);
  21.     }
  22.     printf("Now working...\n");
  23.     for ( i=0 ; i<32 ; i++ ) {
  24.         for ( j=0 ; j<32 ; j++ ) {
  25.             t=i*i+j*j;
  26.             for ( k=0 ; k<32 ; k++ ) {
  27.                 p=(unsigned short int)(sqrt(t+k*k)*1024);
  28.                 fwrite(&p,1,sizeof(unsigned short),fp);
  29.             }
  30.         }
  31.     }
  32.     fclose(fp);
  33.     exit();
  34. }
  35.