这个5元方程循环求解后的结果怎么保存txt文本（可以粘贴入origin直接画图），急求

victoryldh

源程序：
. D6 _" X4 a: N' t- Y6 Y& N2 {& oClearAll["Global`*"]
n = 21
2 X$ h& F. f  d; |/ f/ a4 f9 e5 HIc1 = 64.9
Ic2 = 67
0 w$ L# _1 `8 d+ j( E$ O9 \  T$ KIc3 = 64.1
! E9 }8 Q" C2 W1 R1 kIc4 = 56.2
R1 = 0.328*10^-6
, X& y/ d0 K1 z6 ^( s; {, ]9 r0 N4 tR2 = 2.101*10^-6
R3 = 0.533*10^-6
4 m6 g: t: [. e& R% b! O9 ^R4 = 0.6*10^-6
Vc = 10^-4
* m  M+ R( ^" U0 f- W- @: JEqual1 = Vc*(I1/Ic1)^n + R1*I1 - V
Equal2 = Vc*(I2/Ic2)^n + R2*I2 - V
  L& B3 o6 G3 }. m1 r( V: `Equal3 = Vc*(I3/Ic3)^n + R3*I3 - V
! T3 K6 y0 U( ~Equal4 = Vc*(I4/Ic4)^n + R4*I4 - V
1 t- R+ P7 x1 |, N( C$ n0 ~4 [Equal5 = I1 + I2 + I3 + I4 - It
Data = Do[
5 A0 E) y0 [9 S# j% {. A. ]' m$ L  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
) ]# H1 k+ R7 i     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
( _5 w0 P6 f* ^8 Q# E- |      0}}]], {It, 0, 300}]

保存的格式如下：
0.0000000e+00   0.0000000e+00   0.0000000e+00   
3 t+ }% g/ s  ]  Y" p8 z 4.3137523e-01    6.7344634e-02     2.6546168e-01   

) y! W9 F6 h& O3 F! h/ V

% \) y6 j: i+ E2 @$ y3 U" j7 h