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

victoryldh

源程序：
ClearAll["Global`*"]
' l9 f4 k8 I1 E, nn = 21
6 j% O/ {% ?: g5 p) cIc1 = 64.9
9 A" ?6 p9 I# ^% }2 U/ Y2 W; JIc2 = 67
' f0 W* S( p# r  i4 N6 EIc3 = 64.1
8 _0 C* {7 m3 l' o2 J1 g7 QIc4 = 56.2
R1 = 0.328*10^-6
2 r, a5 [' r' }+ p6 D- ?, ?, ]8 HR2 = 2.101*10^-6
R3 = 0.533*10^-6
) B6 P, \7 p8 JR4 = 0.6*10^-6
Vc = 10^-4
Equal1 = Vc*(I1/Ic1)^n + R1*I1 - V
2 I; S4 Y1 i7 Z7 N' pEqual2 = Vc*(I2/Ic2)^n + R2*I2 - V
Equal3 = Vc*(I3/Ic3)^n + R3*I3 - V
Equal4 = Vc*(I4/Ic4)^n + R4*I4 - V
; k+ @7 B! R% r+ `- R/ V7 BEqual5 = I1 + I2 + I3 + I4 - It
( M; H' n& y4 H3 ]- H! AData = Do[
4 m+ l7 `8 Q* o4 s, b: l  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
      0}}]], {It, 0, 300}]

5 ?- V5 R: k8 z0 E保存的格式如下：
0.0000000e+00   0.0000000e+00   0.0000000e+00   
# e" I* n. g, k: w8 `3 x 4.3137523e-01    6.7344634e-02     2.6546168e-01   
# Q, {; {7 A% @7 @
1 G) ~' O. L, I( E# w, {
+ m+ v- }4 [9 l5 T" l' q* W1 t