#! /usr/bin/octave -qf # vcname=sprintf('sw%iwr%ivc%i',sw/1000,wr/1000,nsteps); vcfile=fopen(vcname, "w"); fprintf(vcfile, "%i\n", vclist); fclose(vcfile); vdname=sprintf('sw%iwr%ivd%i',sw/1000,wr/1000,nsteps); vdfile=fopen(vdname, "w"); fprintf(vdfile, "%-.6fs\n", vdlist); fclose(vdfile);