Advanced Search

Tokoro

115 Reputation

6 Badges

3 years, 252 days
Contact Tokoro

MaplePrimes Activity


These are replies submitted by Tokoro

Your answer of 4 points on the circle is...

Tokoro 115
March 03 2022
0 0

@vv Your answer of 4 points on the circle is as same as my answer. I bereave this is minimum. 

Next is 5 points on the circle. Please try it. I found from n=2 to until 100 points on the circle. My 5 points answer may be the minimum radius. But higher numbers, I can't show they are minimum or not.

Thanks good information for the start of this puzzle.

Tokoro.

2D and 3D is different....

Tokoro 115
March 03 2022
0 0

@vv Maple has 2D plot and 3D plot. It means 2D and 3D is different.

I shows 4 point answer of this puzzle. Tetrahedron can not plot on one circle. 

Ofcourse 2D answer is one of the answer of 3D problem, however, 3D plot can reduce the radius more smaller.

Tokoro.

All Maple codes work fine....

Tokoro 115
March 02 2022
0 0

Thanks, all replies. I check all codes.

fast

faster

fastest

Many approaches how to solve this problem is useful to understanding Maple usages. 

Thanks I got it now....

Tokoro 115
March 02 2022
0 0

@Joe Riel 

Thanks. This plot is the answer of this question. Electric circuit shows the current responce of the question.

non graphable function - MaplePrimes

Tokoro

Thanks...

Tokoro 115
March 02 2022
0 0

@Carl Love Your code is faster and very short. I start to use Maple this year and  I am learning now how to use.
Now I can solve n*m and n*m*l resistor grid for both infinite and finite grid models by Maple.

tokoro.

Thanks...

Tokoro 115
March 02 2022
0 0

@lcz Your Maple code shows the answer as same as my results.

Thanks I used linearSolve to solve this electric circuit with nodal analysis.

Tokoro.

How to solve this puzzle with 3 cones?...

Tokoro 115
March 02 2022

How to solve this puzzle with 3 cones by Maple?

How about 2 cones are same and another 3rd cone?

Tokoro.

1 ohm resistor grid of 3*4*5 Rubik's cub...

Tokoro 115
February 24 2022
0 0

@Joe Riel 

Your answer is correct. Thank you showing us how to solve by Maple this electric circuit.

In case Rubik's cube of 10*10*10, my Maple 2021 says error "too many points to solve".

The resistance of 10*10*10 cube of nodes (0,0,0)-(10,10,10) is  1.323 ohm.

My best electric circuit problem is 1*1*2 Rubik’s cube of nodes (0,0,0)-(1,1,2) is  1 ohm.

Thanks for all....

Tokoro 115
February 09 2022
0 0

I am teaching Electric circuit in College. I search "electric circuit" in this mapleplime web site and I find two interesting questions.

The one is how to plot U(t), that is as shown the answer in my question.

With using ICT, only showing the plot is 20th century study. Even EXCEL can do it.

But with using Maple we should give the problem to the students such as,

Q1. Plot U(t) by Maple.

Q2. Find Laplace conversion result U(s).

Q3. Inverse Laplase  the answer of Q2 and plot the result as same as Q1.

Q4. From Q2 result, asume it is the transient current responce of RLC series circuit. Then find the R, L, C  and applied voltages.

Q4. Solve ODE by using Q4 result and plot the result od ODE, that is as same as Q1.

.....

This is the 21st century's electric circuit questions for the students with using ICT and Maple.

Tokoro.   

2D mesh by Maple....

Tokoro 115
February 07 2022
0 0


 

> 

restart;
> 

with(plots):
n:=20;

20

 (1)

Unit vectors

> 

a:=[n,0]:b:=[0,n]:

Cube origins

> 

ptsx:=[seq([0,j],j=0..n)]:
ptsy:=[seq([i,0],i=0..n)]:

Cube unit vectors relative to the origins, then remove lines "sticking out"

> 

linesx:=map(o->([o,o+a],[o,o]),ptsx):
linesy:=map(o->([o,o],[o,o+b]),ptsy):
 
> 

plotlinesx:=display(map(x->plottools:-line(x[]),linesx),color=blue,linestyle=solid,thickness=3,axis = [tickmarks = [n, subticks = 0]]):
plotlinesy:=display(map(x->plottools:-line(x[]),linesy),color=blue,linestyle=solid,thickness=3,axis = [tickmarks = [n, subticks = 0]]):

With points as well

> 

display([plotlinesx,plotlinesy],pointplot([[0, 0], [n, n]], color = red, symbol = solidcircle, symbolsize = 20),view=[-2..n+2, -2..n+2])

 
   
R2D(20)=R = 3.9543*Unit('Omega')

Download grid-2Dbox2.mw

Thanks. I modified mesh program....

Tokoro 115
February 06 2022
0 0

@dharr I solve resistor mesh problem for 2D and 3D grids. Plot the mesh is easy to understand the problem. 

Next I want to learn how to make points data such as [x1,y1],[x2,y2]...[xn,yn] by using Maple functions.

Maple new user, Tokoro.


 

> 

restart;
> 

with(plots):
n:=20;

20

 (1)

Unit vectors

> 

a:=[n,0,0]:b:=[0,n,0]:c:=[0,0,n]:

Cube origins

> 

ptsx:=[seq(seq([0,j,k],j=0..n),k=0..n)]:
ptsy:=[seq(seq([i,0,k],i=0..n),k=0..n)]:
ptsz:=[seq(seq([i,j,0],i=0..n),j=0..n)]:

Cube unit vectors relative to the origins, then remove lines "sticking out"

> 

linesx:=map(o->([o,o+a],[o,o],[o,o]),ptsx):
linesy:=map(o->([o,o],[o,o+b],[o,o]),ptsy):
linesz:=map(o->([o,o],[o,o],[o,o+c]),ptsz):
> 

plotlinesx:=display(map(x->plottools:-line(x[]),linesx),color=blue,linestyle=solid,thickness=2,axis = [tickmarks = [n, subticks = 0]]):
plotlinesy:=display(map(x->plottools:-line(x[]),linesy),color=blue,linestyle=solid,thickness=2,axis = [tickmarks = [n, subticks = 0]]):
plotlinesz:=display(map(x->plottools:-line(x[]),linesz),color=blue,linestyle=solid,thickness=2,axis = [tickmarks = [n, subticks = 0]]):

With points as well

> 

display([plotlinesx,plotlinesy,plotlinesz],pointplot3d([[0,0,0],[n,n,n]],color=red,symbol=solidsphere,symbolsize=10))

 
> 

 

> 

NULL


 

Download grid-3Dbox2.mw

 

Thanks how to plot it....

Tokoro 115
February 05 2022
0 0

Howtoplot3Dmesh.pdf 

See this pdf file that I want to make plots and calculate the answer by Maple. 

Thanks a lot. When I chage n to 20, Maple takes a lot of time to plot it. Is there any way to plot more fast?

Using your answer I can make electric circuit resistor mesh problems. Each resistor element of node to node is 1 ohm.

Tokoro.

n=20*20 2D Resistor mesh problem.  3.9543 ohm.

1 2 3 Page 3 of 3