tomatlab.awk

来自「用于潮流计算的程序请让我下载我需要的吧感谢了啊」· AWK 代码 · 共 12 行

{ 
   if (NR==1) {
	printf("J=zeros(%d,%d);\n",$1,$2); 
   }
   else if ($1!=0) {
	printf("J(%d,%d)=%s;\n",$1,$2,$3);
   }
}
END { 
	printf("J=sparse(J);\n");
    }