People

In his circles

73 people

Start a hangout

David Moore

Attends San Diego Miramar College

Lives in San Diego, CA

171 followers|80,481 views

AboutPostsPhotosVideos

People

In his circles

73 people

Education

- San Diego Miramar College2011 - present

Basic Information

Gender

Male

Birthday

March 19, 1994

Links

YouTube

Other profiles

Story

Tagline

Aspiring physicist

Introduction

I'm a student who would love to go into high-level academia. See my portfolio and my youtube channel for some projects I've worked on.

I started programming at the age of 11, and now I'm studying physics and some pure math at the level of real analysis, introductory computational physics, and introductory dynamics (Lagrangians and what-not). I do all this on my free time, but I have very little going for me academically, being in community college, with my only STEM classes being introductory linear algebra and vector calculus (old news!)

If you have project recommendations, book recommendations, or anything really, I'd love to hear them!

Bragging rights

Pretty fluent with Java/C++ (Yes really!)/JS/DBPro/Mathematica

Places

Currently

San Diego, CA

Contact Information

Work

- dmoore101@gmx.com
| |

2

6 comments

Hi David, check out - https://vimeo.com/123752837

Add a comment...

The self-fulfilling prophecy.

1

3 comments

Yep youve left me for dead, but how are you thngs ok . There are some you which interesting and I share with family. So thanks for what you have shared.

Add a comment...

+Chris Thomasson Couldn't resist! Sorry, copying+pasting destroys all the indentation. The "hat" vectors aren't actually unit vectors, but they play the role of axes.

v=Table[{Cos[2 Pi k/3],Sin[2 Pi k/3],0},{k,0,2}];

i={{1,2,3}};

vmotif={{0,0,0},{1,0,0},{1/3,1/3,0.3},{0,1,0}};

imotif={{1,2,3},{1,3,4},{4,3,2}};

replacement[{v_,i_}]:=Module[{retv,reti,xhat,yhat,zhat,origin,vindex},

retv={};

reti={};

vindex=0;

Do[

origin=v[[indc[[1]]]];

xhat=v[[indc[[2]]]]-v[[indc[[1]]]];

yhat=v[[indc[[3]]]]-v[[indc[[1]]]];

zhat=Cross[xhat,yhat];

retv=Join[retv,Table[pt.{xhat,yhat,zhat}+origin,{pt,vmotif}]];

reti=Join[reti,vindex+imotif];

vindex+=Length[vmotif];

,{indc,i}];

{retv,reti}

];

plot[s_]:=Graphics3D[{EdgeForm[None],Yellow,GraphicsComplex[#1,Polygon[#2]]}]&@@s;

plot[Nest[replacement,{v,i},9]]

v=Table[{Cos[2 Pi k/3],Sin[2 Pi k/3],0},{k,0,2}];

i={{1,2,3}};

vmotif={{0,0,0},{1,0,0},{1/3,1/3,0.3},{0,1,0}};

imotif={{1,2,3},{1,3,4},{4,3,2}};

replacement[{v_,i_}]:=Module[{retv,reti,xhat,yhat,zhat,origin,vindex},

retv={};

reti={};

vindex=0;

Do[

origin=v[[indc[[1]]]];

xhat=v[[indc[[2]]]]-v[[indc[[1]]]];

yhat=v[[indc[[3]]]]-v[[indc[[1]]]];

zhat=Cross[xhat,yhat];

retv=Join[retv,Table[pt.{xhat,yhat,zhat}+origin,{pt,vmotif}]];

reti=Join[reti,vindex+imotif];

vindex+=Length[vmotif];

,{indc,i}];

{retv,reti}

];

plot[s_]:=Graphics3D[{EdgeForm[None],Yellow,GraphicsComplex[#1,Polygon[#2]]}]&@@s;

plot[Nest[replacement,{v,i},9]]

2 photos

6

5 comments

If you can close the bottom,

there is no reason you can't get a 3d printed model of it

with some work.

there is no reason you can't get a 3d printed model of it

with some work.

Add a comment...

+Tim Hutton I'm trying to find a javascript (or maybe it was java) thing and it might have been you that posted it. It was a little app involving solid geometry where you could type a string in a box below the app. If you wrote "d" it would take the dual of the current shape, and if you wrote "sd" it would take the dual then stellate, and I think if you wrote "tsd" it would take the dual then stellate then truncate. There were about six other commands too if I recall correctly. Let me know if any of that sounds familiar!

1

2 comments

+Tim Hutton Ahh that's almost exactly it. I remember one which I think used Three.js and was on some university user page. But from the code it looks like it might be easy enough to convert to three.js myself. Thanks!

Add a comment...

Just for the picture :D

Mechanically generated turbulence is visible as "swirl" behind the turbine.

The visible wind wake itself is a result of lower pressure behind the turbine which forces humidity to condense. The pressure is lower, because of a speed deficit (part of the wind speed is transferred into thrust of the turbine).

Shear stress is the reason that the wind wake widens. It induces a speed gradient vertical to the main flow direction.

1

Add a comment...

Doing ODE practice, using Mathematica to check my answers, and waiting to check my answers until the end:

{True, True, True, True, {True, True}, {True, True}}

{True, True, True, True}

Woo!

{True, True, True, True, {True, True}, {True, True}}

{True, True, True, True}

Woo!

1

Add a comment...

In his circles

73 people

+George Hart , going to build a second at the UCSD math club meeting, and later design some polyhedra of our own!

2 photos

2

Add a comment...

I always thought pie charts were pretty bad as a visualisation option. This set of slides shows you how to get them actually looking good.

The poor, maligned 3D pie chart. He is so popular among the common folk, but put him next to his peers and his vacant stare betrays (not entirely unfounded) feelings of insecurity and inadequacy. Sometimes the only way to address such feelings is to let go of your inhibitions and do something ...

2

Add a comment...

New fractal 3d substitution system. Note: I changed "zhat", in a way so that its magnitude is symmetric upon swapping the "xhat" and "yhat" vectors, and in a way that's consistent with units!

v=Table[{Cos[2 Pi k/3],Sin[2 Pi k/3],0},{k,0,2}];

i={{1,2,3}};

vmotif=N@{{0,0,0},{1,0,0},{1/3,1/3,Sqrt[2/9]/4},{0,1,0}};

imotif={{1,2,3},{1,3,4},{3,2,4}};

replacement[{v_,i_}]:=Module[{retv,reti,xhat,yhat,zhat,origin,vindex},

retv={};

reti={};

vindex=0;

Do[

origin=v[[indc[[1]]]];

xhat=v[[indc[[2]]]]~~v[[indc[[1]]]];~~

~~yhat=v[[indc[[3]]]]-v[[indc[[1]]]];~~

~~zhat=Cross[xhat,yhat]/((xhat.xhat)(yhat.yhat))^(1/4);~~

~~retv=Join[retv,Table[pt.{xhat,yhat,zhat}+origin,{pt,vmotif}]];~~

~~reti=Join[reti,vindex+imotif];~~

~~vindex+=Length[vmotif];~~

~~,{indc,i}];~~

~~{retv,reti}~~

~~];~~

~~plot[s_]:=Graphics3D[{Opacity[0.4],Yellow,EdgeForm[None],GraphicsComplex[#1,Polygon[#2]]},Boxed~~>False]&@@s;

plot[Nest[replacement,{v,i},7]]

Other motifs:

Koch (my interpretation):

vmotif=N@{{0,0,0},{1,0,0},{0,1,0},{1/2,0,0},{0,1/2,0},{1/2,1/2,0},{1/3,1/3,Sqrt[2/3]/2}};

imotif={{1,4,5},{2,6,4},{3,5,6},{4,7,5},{6,5,7},{4,6,7}};

Rough:

vmotif=N@{{0,0,0},{1,0,0},{0,1,0},{1/2,0,0.1},{0,1/2,0.1},{1/2,1/2,0.1}};

imotif={{1,4,5},{2,6,4},{3,5,6},{4,6,5}};

Jagged Koch:

vmotif=N@{{0,0,0},{1,0,0},{0,1,0},{1/2,0,0},{0,1/2,0},{1/2,1/2,0},{1/3 0.7,1/3 0.9,Sqrt[2/3].7/2}};

imotif={{1,4,5},{2,6,4},{3,5,6},{4,7,5},{6,5,7},{4,6,7}};

v=Table[{Cos[2 Pi k/3],Sin[2 Pi k/3],0},{k,0,2}];

i={{1,2,3}};

vmotif=N@{{0,0,0},{1,0,0},{1/3,1/3,Sqrt[2/9]/4},{0,1,0}};

imotif={{1,2,3},{1,3,4},{3,2,4}};

replacement[{v_,i_}]:=Module[{retv,reti,xhat,yhat,zhat,origin,vindex},

retv={};

reti={};

vindex=0;

Do[

origin=v[[indc[[1]]]];

xhat=v[[indc[[2]]]]

plot[Nest[replacement,{v,i},7]]

Other motifs:

Koch (my interpretation):

vmotif=N@{{0,0,0},{1,0,0},{0,1,0},{1/2,0,0},{0,1/2,0},{1/2,1/2,0},{1/3,1/3,Sqrt[2/3]/2}};

imotif={{1,4,5},{2,6,4},{3,5,6},{4,7,5},{6,5,7},{4,6,7}};

Rough:

vmotif=N@{{0,0,0},{1,0,0},{0,1,0},{1/2,0,0.1},{0,1/2,0.1},{1/2,1/2,0.1}};

imotif={{1,4,5},{2,6,4},{3,5,6},{4,6,5}};

Jagged Koch:

vmotif=N@{{0,0,0},{1,0,0},{0,1,0},{1/2,0,0},{0,1/2,0},{1/2,1/2,0},{1/3 0.7,1/3 0.9,Sqrt[2/3].7/2}};

imotif={{1,4,5},{2,6,4},{3,5,6},{4,7,5},{6,5,7},{4,6,7}};

4 photos

4

4 comments

David Moore

The Google+ editor mangles your code. The midpoint one runs.

Do you have something like a cloud address?

What I do is upload my files to the cloud and then they can be run.

Example: my trefoil fractal program as a link:

https://drive.google.com/file/d/0BwHVCm5rTlOjR3FRUi1OVm53TWM/view?usp=sharing

The Google+ editor mangles your code. The midpoint one runs.

Do you have something like a cloud address?

What I do is upload my files to the cloud and then they can be run.

Example: my trefoil fractal program as a link:

https://drive.google.com/file/d/0BwHVCm5rTlOjR3FRUi1OVm53TWM/view?usp=sharing

Add a comment...

Interstellar - About building a Black Hole 720p

If anyone who reads this goes to see Interstellar afterwards, keep an eye out - there's one line that's something along the lines of, "you know relativity!" that I really wanted to quote. I forgot the line!!!

2 photos

1

Add a comment...

First Antares and now Virgin Galactic? It's a sad week for space.

1

3 comments

Perseverance

Add a comment...