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

victoryldh

源程序：
ClearAll["Global`*"]
0 P2 W  T$ X5 W2 {5 k  g* Ln = 21
Ic1 = 64.9
Ic2 = 67
) g" ^! n' @% K8 |+ ?Ic3 = 64.1
: V0 {/ }6 w" t& oIc4 = 56.2
+ s$ ]( I: I2 I7 K$ zR1 = 0.328*10^-6
R2 = 2.101*10^-6
5 L7 J2 x% S! k" ~% @! p$ R2 SR3 = 0.533*10^-6
R4 = 0.6*10^-6
$ L, `( G# }$ S" K7 ZVc = 10^-4
Equal1 = Vc*(I1/Ic1)^n + R1*I1 - V
, M+ @5 \4 C8 tEqual2 = Vc*(I2/Ic2)^n + R2*I2 - V
Equal3 = Vc*(I3/Ic3)^n + R3*I3 - V
+ X: }. E( y; H0 w1 bEqual4 = Vc*(I4/Ic4)^n + R4*I4 - V
1 P* B0 }( j8 c1 ZEqual5 = I1 + I2 + I3 + I4 - It
Data = Do[
" O( a9 i3 E" O6 N+ l9 G# G  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
: ~! v* S6 W- p4 y1 h1 D! E7 ^     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
      0}}]], {It, 0, 300}]

保存的格式如下：
0.0000000e+00   0.0000000e+00   0.0000000e+00   
4.3137523e-01    6.7344634e-02     2.6546168e-01   

4 ?8 p6 ^' G- j) k
" m8 r# G( q1 n/ t$ P. b  K+ p