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

victoryldh

源程序：
$ ^! q+ Z2 @' V  p* \ClearAll["Global`*"]
n = 21
Ic1 = 64.9
Ic2 = 67
Ic3 = 64.1
, N' h4 L3 D' u# }- MIc4 = 56.2
R1 = 0.328*10^-6
R2 = 2.101*10^-6
R3 = 0.533*10^-6
, F9 h/ E. i, f# N% X& hR4 = 0.6*10^-6
) `( Z8 B; A9 W8 TVc = 10^-4
Equal1 = Vc*(I1/Ic1)^n + R1*I1 - V
' q3 @/ l/ R- h( d2 v1 MEqual2 = Vc*(I2/Ic2)^n + R2*I2 - V
% }) k" \5 e0 R0 JEqual3 = Vc*(I3/Ic3)^n + R3*I3 - V
Equal4 = Vc*(I4/Ic4)^n + R4*I4 - V
Equal5 = I1 + I2 + I3 + I4 - It
6 }2 l7 q! `  [0 H, V' v: c1 J1 VData = Do[
  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
" f* D4 `9 p1 K' K( ~3 R     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
      0}}]], {It, 0, 300}]

& a4 ^0 {& F  q: a; E$ ~保存的格式如下：
2 K) s/ p9 l" J" W  D1 F 0.0000000e+00   0.0000000e+00   0.0000000e+00   
4.3137523e-01    6.7344634e-02     2.6546168e-01   



, b# O7 F+ z" u+ W