Advanced Search

sursumCorda

1324 Reputation

15 Badges

3 years, 321 days
Contact sursumCorda

MaplePrimes Activity


These are answers submitted by sursumCorda

differentiate with respect to functions...

sursumCorda 1324
January 20 2023
1 0

Maybe Physics/diff? 
 

p := (m1*a1 + m2*(a123 + z(t)))*sin(theta(t))*g + m3*(sin(theta(t))*(a1234 + z(t)) + cos(theta(t))*a5)*g; = (m1*a1+m2*(a123+z(t)))*sin(theta(t))*g+m3*(sin(theta(t))*(a1234+z(t))+cos(theta(t))*a5)*gNULL

diff((m1*a1+m2*(a123+z))*sin(theta)*g+m3*(sin(theta)*(a1234+z)+cos(theta)*a5)*g, theta) = (m1*a1+m2*(a123+z))*cos(theta)*g+m3*(cos(theta)*(a1234+z)-sin(theta)*a5)*g

> 

Physics[diff](p, theta(t))

(m1*a1+m2*(a123+z(t)))*cos(theta(t))*g+m3*(cos(theta(t))*(a1234+z(t))-sin(theta(t))*a5)*g

 (1)

NULL


 

Download Fundiff.mw

\t...

sursumCorda 1324
January 14 2023
2 2

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

> 

restart;
> 

currentdir(homedir):
> 

g := GraphTheory:-ImportGraph("Desktop\\g[1].gml", graphlet)

g := `Graph 1: an undirected unweighted graph with 15 vertices and 30 edge(s)`

 (1)
> 

GraphTheory:-DrawGraph(g)

%?

  

%?

Download test_g.mws

Check FileTools:-Text:-WriteFile...

sursumCorda 1324
January 03 2023
2 0

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.

sursumCorda 1324

December 20 2022
1 0

How about PCA_1.mw?

something strange...

sursumCorda 1324
December 13 2022
1 0 
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}));

 gives AB = 28/3, but 

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});

gives an error ...

1 2 3 4 5 6 Page 6 of 6