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

victoryldh

源程序：
3 ~) {2 I2 C. c# o$ e$ Y* q  D+ IClearAll["Global`*"]
$ ?( A( W$ p) p- w! \n = 21
: q: t1 a7 j, O/ r; [4 d& ~1 IIc1 = 64.9
# P, b  r+ n2 x8 V8 M, j* v/ AIc2 = 67
Ic3 = 64.1
9 K9 F/ S/ y) x+ I) |Ic4 = 56.2
! z0 p  ?9 I* N; uR1 = 0.328*10^-6
, S5 ^8 v  x* P% c7 KR2 = 2.101*10^-6
R3 = 0.533*10^-6
8 C0 x2 m9 w0 ^" F5 oR4 = 0.6*10^-6
3 b2 N5 i! q# [- z" R. w0 HVc = 10^-4
Equal1 = Vc*(I1/Ic1)^n + R1*I1 - V
  N9 W5 g# A/ n6 x/ M1 WEqual2 = Vc*(I2/Ic2)^n + R2*I2 - V
7 |% y6 w0 \# b! o; L& O+ p8 T( rEqual3 = Vc*(I3/Ic3)^n + R3*I3 - V
Equal4 = Vc*(I4/Ic4)^n + R4*I4 - V
Equal5 = I1 + I2 + I3 + I4 - It
Data = Do[
  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
& I0 q* `% j  Q+ K; D9 H9 L      0}}]], {It, 0, 300}]

3 q$ O' k) z, s* P8 u) X# @; _& `: b保存的格式如下：
0.0000000e+00   0.0000000e+00   0.0000000e+00   
4.3137523e-01    6.7344634e-02     2.6546168e-01   
) ?# V$ T! g! f3 p
6 y$ a2 w) ?; L- p
3 k8 W& }  |  \& |. ?
1 {5 `; X" P8 X' l' c7 ?: `/ o, t