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

victoryldh

源程序：
5 U+ m. m6 v- I0 r' B; `- r! sClearAll["Global`*"]
n = 21
Ic1 = 64.9
* }9 u- @! K4 p+ Z- F2 X+ r0 m, yIc2 = 67
Ic3 = 64.1
  d4 A; x3 \6 g, m7 \& A  p$ ^1 ~$ |Ic4 = 56.2
R1 = 0.328*10^-6
  @& b. W7 N5 i( ^8 y0 s  QR2 = 2.101*10^-6
" w: Y5 {9 Z% U5 ZR3 = 0.533*10^-6
R4 = 0.6*10^-6
Vc = 10^-4
; _; F! i* }+ g3 g+ O0 d: |  H3 fEqual1 = Vc*(I1/Ic1)^n + R1*I1 - V
% G6 I; o. z5 s1 e8 \Equal2 = Vc*(I2/Ic2)^n + R2*I2 - V
Equal3 = 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,
" W, U4 ?1 W  m" H3 F- S      0}}]], {It, 0, 300}]
8 a3 }1 u9 z3 x. s. [
保存的格式如下：
0.0000000e+00   0.0000000e+00   0.0000000e+00   
4.3137523e-01    6.7344634e-02     2.6546168e-01