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

victoryldh

源程序：
ClearAll["Global`*"]
n = 21
Ic1 = 64.9
! U+ s- b" J, ZIc2 = 67
Ic3 = 64.1
* u& f4 p1 D. ~4 C* e7 X1 u7 i; c$ vIc4 = 56.2
R1 = 0.328*10^-6
R2 = 2.101*10^-6
R3 = 0.533*10^-6
R4 = 0.6*10^-6
Vc = 10^-4
Equal1 = Vc*(I1/Ic1)^n + R1*I1 - V
  E, k1 R6 i% l7 `4 W% _8 U+ WEqual2 = Vc*(I2/Ic2)^n + R2*I2 - V
Equal3 = Vc*(I3/Ic3)^n + R3*I3 - V
9 y: @) L4 f5 O+ tEqual4 = Vc*(I4/Ic4)^n + R4*I4 - V
) D2 M4 \! p8 x& ]Equal5 = I1 + I2 + I3 + I4 - It
0 f0 h" r6 i) A9 H" S1 F( JData = Do[
7 ^6 _1 t9 e2 f  Print[FindRoot[{Equal1 == 0, Equal2 == 0, Equal3 == 0, Equal4 == 0,
     Equal5 == 0}, {{I1, 0}, {I2, 0}, {I3, 0}, {I4, 0}, {V,
/ R% K* O3 A6 ]$ s4 k1 Y1 E# Q4 L      0}}]], {It, 0, 300}]
$ _8 I' Y  I  y: m
保存的格式如下：
" Z6 x0 R+ y) i 0.0000000e+00   0.0000000e+00   0.0000000e+00   
4.3137523e-01    6.7344634e-02     2.6546168e-01   



6 Y4 P4 j. s, P3 G