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

victoryldh

源程序：
ClearAll["Global`*"]
2 V6 J& x" H! _$ Y( Mn = 21
Ic1 = 64.9
+ _$ l& e' [! o2 O# Z6 ?Ic2 = 67
Ic3 = 64.1
Ic4 = 56.2
: h+ X+ V& ~$ _' M4 F  {: vR1 = 0.328*10^-6
R2 = 2.101*10^-6
1 }6 X* S# E/ D& K) XR3 = 0.533*10^-6
R4 = 0.6*10^-6
Vc = 10^-4
Equal1 = Vc*(I1/Ic1)^n + R1*I1 - V
2 z6 {1 d1 J9 W% l. g  ^Equal2 = Vc*(I2/Ic2)^n + R2*I2 - V
" v0 [$ x' b) h, a7 {. gEqual3 = Vc*(I3/Ic3)^n + R3*I3 - V
$ ^# b1 j% U4 jEqual4 = Vc*(I4/Ic4)^n + R4*I4 - V
Equal5 = I1 + I2 + I3 + I4 - It
, G& n1 s% @6 _2 \4 o+ C/ s) _Data = Do[
  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}]

保存的格式如下：
0.0000000e+00   0.0000000e+00   0.0000000e+00   
4.3137523e-01    6.7344634e-02     2.6546168e-01   

8 O7 E( u. S, |$ @; Y
. ~7 e- `% X" r7 d
' e2 P) t2 a: L. O/ z