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

victoryldh

源程序：
5 }' Y6 V4 z* H- c4 ?% p; UClearAll["Global`*"]
. d4 A7 i, z8 e6 an = 21
6 d8 Q) I0 I- ^( N* C, }* v& \Ic1 = 64.9
Ic2 = 67
) `% {, j% \) F% ]: c& mIc3 = 64.1
  C9 I$ }2 |% \Ic4 = 56.2
; q6 z5 ]  H. O3 ~R1 = 0.328*10^-6
. M( |$ \8 p. VR2 = 2.101*10^-6
R3 = 0.533*10^-6
" l3 s* J; [  f0 ~R4 = 0.6*10^-6
Vc = 10^-4
2 C# ^/ c3 I: }( b; }! GEqual1 = Vc*(I1/Ic1)^n + R1*I1 - V
9 k) ^" `/ o% I4 B: dEqual2 = Vc*(I2/Ic2)^n + R2*I2 - V
3 D" W/ x0 q1 h5 ]" l/ CEqual3 = Vc*(I3/Ic3)^n + R3*I3 - V
Equal4 = Vc*(I4/Ic4)^n + R4*I4 - V
' O/ }9 Z( _* c$ O, J; _- U6 tEqual5 = I1 + I2 + I3 + I4 - It
Data = Do[
1 h1 H7 X+ \, C2 X  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
: m# g! }! C$ l) q- y- u% w     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
- x: d4 U  F5 G2 f; Z  k5 ~" G      0}}]], {It, 0, 300}]
& q, N8 m# p7 y4 Z- {: m
6 U5 m# L' b1 O, x+ m0 K保存的格式如下：
0.0000000e+00   0.0000000e+00   0.0000000e+00   
, v) e. W7 i: P8 `# I- f+ ^ 4.3137523e-01    6.7344634e-02     2.6546168e-01   
. ~' P. o8 ?; S/ d' @

  b( A# V) T$ U6 `7 J* v3 e