1002 Reputation

1 years, 231 days

\t...

@lcz How about g[1].txt? But for some unexplained reason, certain data cannot be read:

 > restart;
 > currentdir(homedir):
 >
 (1)
 >

Check FileTools:-Text:-WriteFile...

You need

`Export("E:\\M.txt", String(M)); # not the same`

or

```Export("E:/M.csv", M):
Export("E:\\M.txt", Import("E:/M.csv", format = "Text"));
fremove("E:/M.csv");
```

Note that .csv is a text-based format, so you can simply rename M.csv to M.txt (using FileTools[Rename]) in fact.

`simplify(solve({(BD + CD)^2 = AB^2 + AC^2 - 2*AB*AC*cos(Pi/9 + (4*Pi)/9), BD/CD = 4/3, AB*sin(Pi/9)/BD = AC*sin((4*Pi)/9)/CD, AB^2*CD + AC^2*BD = (BD + CD)*(4^2 + BD*CD), (AB, AC, BD, CD, AB + AC - (BD + CD), AC + (BD + CD) - AB, AB + (BD + CD) - AC) >~ 0}));`
`solve({BD^2 = AB^2 + 4^2 - 2*AB*4*cos(Pi/9), CD^2 = AC^2 + 4^2 - 2*AC*4*cos((4*Pi)/9), (BD + CD)^2 = AB^2 + AC^2 - 2*AB*AC*cos(Pi/9 + (4*Pi)/9), BD/CD = 4/3, (AB, AC, BD, CD, AB + AC - (BD + CD), AC + (BD + CD) - AB, AB + (BD + CD) - AC) >~ 0});`