Iy = OpenWrite[ "AK12.txt", FormatType -> OutputForm ] ;
Table[ \[Theta] = Et[[1, n]] ;
k = Et[[2, n]] ; \[Xi] = Et[[3, n]] ;
Write[ Iy , N[ \[Theta], 50] , " ", N[ k, 50] ,
" ", N[ \[Xi], 50] ],
{n, 1, N1*16} ] ;
Close[Iy];
我會出數據是用這樣寫
但是其中一項的值有時候太小
會變成用科學符號表示 如 1.258*10^-6
可是會出數據時排序會亂掉
想問能不能不要變成科學符號表示 直接用0.0000001258