Wednesday, December 31, 2014

Happy New Years!

We are entering 2015 around the world today.  Happy New Year!


Sunday, December 28, 2014

TI-84+: Doppler Effect, Finding an Equation of a Line with 2 Points, Arc Length of f(x), Orbit around the Sun


Doppler Effect for Sound in Air


: Input “TEMP IN ⁰F:”, T

: Input “SOURCE FREQ (HZ):”,F

: 331.4+0.6*5/9*(T-32)→C


: Input “(MPH):”, S

: S/2.2369→S

: C/(C+S)*F→R

: Disp “SPEED OF SOUND (MPH)”, C*2.2369



(223 bytes)



C = calculated speed of sound in air, stored in m/s

S = speed of observer relative to the source, stored in m/s.  S<0 if the source and observer are getting closer.  S>0 when the source and observer are moving apart.

F = source frequency, in Hz

R = observed frequency, in Hz



An observer is moving towards emitting a sound of 261.6 Hz (Middle C) at about 1.05 mph.  Input velocity as -1.05. 



Speed of Sound:  769.6427267 mph

Observed Frequency: 261.9573804 Hz


Finding the Equation of a Line between Two Points

Enter two points as complex numbers (x+y*i).  The complex value i is accessed by pressing [2nd] [ 3 ]. Direction is important, P is your starting point and Q is your finishing point.

Program PT2LINE

: a+bi


: Prompt P, Q

: angle(Q-P)→S

: If S=90⁰ or S=-90⁰

: Then

: Disp “X=”, real(P)

: Else

: imag(P)-tan(S)*real(P)→C

: Disp “Y=”,tan(S),”* X +”,C

: End


(143 bytes)


Example 1:

Find an equation for the points, going from (2,5) to (4,6).


P = 2+5i

Q = 4 + 6i


Y = 0.5 * X + 4


Example 2:

Find an equation for the points, going from (7,3) to (9,-1).


P = 7+3i

Q = 9-i


Y = -2 * X + 17


Arc Length of a Function


Formula: S = ∫(√(1+f’(x)^2) dx, a, b)

We will use a trick with the function variable to pull this integral off. 

** Caution: This will provide an approximate answer.  Best use four to five digits at most.

Note: Enter Y1 by pressing [VARS], [ right ] for Y-VARS, [ 1 ] for Function, [ 1 ] for Y1.



: Radian


: Prompt Y1, A, B

: fnInt(√(1+nDeriv(Y1,X,X)^2),X,A,B)→S

: Disp “ARC LENGTH:”,S


(91 bytes)


Example:  Find the arc length of the function y = e^(-x^2/2) from x = 0 to x = 3.



Y1:  “e^(-X^2/2)”   (you can leave the second quote out)

A:  0

B:  3



S:  3.20863  (approximately)


Orbit around the Sun Using Kepler’s Third Law

(using US Units)


The Mass of the Sun is 4.384 x 10^30 pounds.


The universal gravitational constant is:

G = 6.67384 x 10^-11 m^3/(s^2*kg) = 7.23243 x 10^-6 mi^3/(y^2*lb)


Kepler’s third law is:

P = √((4*π^2*a^3)/(G*(m1 + m2))


a = average radius between the two objects

G = universal gravitational constant

m1 = mass of object 1

m2 = mass of object 2

P = orbit of object 2 around object 1


Letting m1 be the mass of the sun and simplifying in U.S. units, the periodic orbit simplifies to:

P ≈ √((5458527.439*a^3)/(4.3840 x 10^30 + m2))

** Approximate values


Program KEPLER3


: Input “MASS (POUNDS):”, M

: Input “AVG. RADIUS (MI):”, A

: √((5458527.439*A^3)/(4.384E30+M))→P



(135 bytes)



Planet/Celestial Object
Mass (pounds)
Avg. Radius (miles)
Orbit (years)

This blog is property of Edward Shore.  2014.


Sunday, December 21, 2014

Happy December Solstice!

Today, December 21, 2014, is the December Solstice.  In the Northern Hemisphere, it is the first day of winter.   In the Southern Hemisphere, it is the first day of summer.  As someone who lives in California, I must admit I feel a little jealous of all of you enjoying the long day living around our Tropic of Capricorn,  I love the sunshine

I want to wish everyone a Happy, Healthy, Safe, and Celebratory Solstice, and Happy Holidays (Christmas, Hanukkah, and all the holidays that are being celebrated worldwide). 

I thank everyone who follows this blog, comments, and readers.  Thank you for making this blog the success that it is. 

I'll probably speak to you next week - until then, CHEERS!

Take care of each other.



Tuesday, December 16, 2014

HP Prime and HP 50g: Using the LSQ Function to find the Moore-Penrose Inverse of a Matrix

HP Prime and HP 50g:  Using the LSQ Function to find the Moore-Penrose Inverse of a Matrix

Recall that the Moore-Penrose Inverse of a Matrix A, A^+, with r rows and c columns is:

If r ≤ c and rank(A) = r  (horizontal matrix), then:
A^+ = A^T * (A*A^T)^-1

If r ≥ c and rank(A) = c  (vertical matrix), then:
A^+ = (A^T * A)^-1 * A^T

You can see the blog entry about the Moore-Penrose inverse here:

On the LSQ (Least Squares Solution Command) function, featured on both the HP Prime and HP 50G, you can find A^+.

Syntax to find A^+ using the LSQ Command

HP Prime:

LSQ(matrix, IDENMAT(r))

Where IDENMAT is the identity matrix command. 

Path to IDENMAT:  Toolbox, Math, 7. Matrix, 4. Create, 2. Identity
Path to LSQ:  Toolbox, Math, 7. Matrix, 7. Factorize, 2. LSQ

HP 50g:

2:  identity matrix of dimension r x r  (R IDN)
1:  matrix

Build the identity matrix by entering r, then [Left Shift], [5] (MATRICES), [F1] (CREATE), [F4] (IDN)
Path to LSQ:  [Left Shift], [5] (MATRICES), [F2] (OPER), [NXT], [F2] (LSQ)

Examples (answers are rounded to five decimal places):

Example 1

M =
[[2, 5],
[3, 3],
[4, 5]]  
(3 x 2 matrix, r = 3)

HP Prime:  LSQ(M, IDENMAT(3))
HP 50g:   2:  (3 IDN), 1: M


M^+ »
[[-0.45026, 0.31579, 0.21579],
[0.35263, -0.15789, -0.05789]]

Example 2

M =
[[4, 0.3, -0.8, 4.8, 2.5],
[-1.8, 3.6, 4.2, 4.4, -7]] 
(2 x 5, r = 2)

HP Prime:  LSQ(M, IDENMAT(2))
HP 50g:   2:  (2 IDN), 1: M


M^+ »
[[0.0853, -0.01272],
[0.01109, 0.03586],
[-0.01224, 0.04039],
[0.11059, 0.04939],
[0.04594, -0.06586]]

  This blog is property of Edward Shore. 2014. 

Sunday, December 14, 2014

Bingo: Number of Cards and Odds of Winning


A standard BINGO board has a 5 x 5 matrix. Each column is dedicated to a letter, mainly B, I, N, G, and O. 75 numbers are assigned to each number as follows:

B: 1 to 15
I: 16 to 30
N: 31 to 45
G: 46 to 60
O: 61 to 75

Each column has 5 of 15 possible numbers, except the N column, which only has 4. The N column has a Free Space.

How Many Different Bingo Cards Are There?

A bingo card has five rows, five columns , and two diagonals. The middle row, middle column, and the two diagonals contain the Free Space.

Each of columns have the following number of arrangements:
B Column: nPr(15,5) = 15!/(15-5)! = 360,360
I Column: 360,360 (see B column)
N Column: nPr(15,4) = 15!/(15-4)! = 32,760 (remember the Free Space!)
G Column: 360,360 (like the B and I columns)
O Column: 360,360 (like the B, I, and G columns)

Note: nPr is the Permutation function n!/(n-r)!, sometimes labeled PERM or (n r) shown vertically. Simply put, permutation means arrangement: "How many ways can we arrange r out of n objects?

Since each of the permutations of B column can have each of the permutations of the I column; which in turn, each of those permutations can contain each permutation of the N column, and so on; the number of total number of bingo boards is:

360,360 * 360,360 * 32,760 * 360,360 * 360,360
= 360,360^4 * 32,760
= 552,446,474,061,128,648,601,600,000
≈ 5.52446 x 10^26

We can get the number of different cards by using rows as well.
1st Row: 15 * 15 * 15 * 15 * 15 = 15^5 =759,375 (15 numbers available per column)
2nd Row: 14 * 14 * 14 * 14 * 14 = 14^5 = 537,824 (14 numbers available per column)
3rd Row: 13 * 13 * 1 * 13 * 13 = 28,561 (don't forget about the Free space)
4th Row: 12 * 12 * 13 * 12 * 12 = 269,568
5th Row: 11 * 11 * 10 * 11 * 11 = 175,692

And the number of cards is:
759,375 * 537,824 * 28,561 * 269,568 * 175,692
= 552,446,474,061,128,648,601,600,000
≈ 5.52446 x 10^26

We arrived at the same destination.

What The Odds of Having a Winning Card in Bingo?

Even though there are 2,0711,126,800 ways to pick 5 numbers out of 75; thus making you very lucky to get a Bingo if the you win after just five draws.

Despite this, we look at the number of cards that are played in the game rather than the numbers themselves when answering this question.

So instead of having a long calculation, which I once thought was the case, the odds of having the winning card boils down to this:

1/(number of cards in play)

This is true if you are playing BINGO by a line or blackout bingo.

Don't forget to you yell BINGO! when you win. :)

Have a great day! Now I am off to errands and maybe wrap some presents.


This blog is property of Edward Shore. 2014 

P.S. I am going to make it one of my resolutions to check on the comments timely.  I appreciate and thank everyone who leaves a comment.   - Eddie (12/15/14)

Thursday, December 11, 2014

Annie Jump Cannon

Google dedicated their home page to Annie Jump Cannon today. The Henry Draper Award winner classified and observed 500,000 stars, while breaking ground for women in science.

She also has a crater named after her on our Moon, and her stellar classification is standard (as determined by the IAU).

Saturday, December 6, 2014

Some Science Stocking Stuffings

Einstein's Time Dilation

Recall that equation for time dilation is:

Δt = Δt0 / √(1 - u^2/c^2)

Δt = time observed by the person standing still
Δt0 = time observed by the traveler (in the observer's frame of reference)
u = speed of the moving object , which contains the traveler
c = speed of light in a vacuum = 299,792,458 m/s

In short, the traveler will note observe and note that time Δt0 has passed, which the person standing still observes that time Δt has passed. The closer someone goes to the speed of light, that less person she/he experiences. You will need to go super fast. Driving at 65 mph (29.0756 m/s) on the freeway won't cut it and here's why:

For 1 unit of time to pass for the person driving 65 mph (Δt0 = 1), the change of time for the observer (Δt) is:

Δt = 1/√(1 - 29.0756^2/299,792,458^2) ≈ 1.0000000000000047 (that is fourteen zeroes between the decimal point and the 4) (The Wolfram Alpha app was used for this calculation).

Virtually the same time passes.

Same deal regarding observing an airplane flying at 600 mph (268.224 m/s). For the person watching the plane, for a plane's passenger, pilot, or cocktail and peanut server to observe one unit of time, us watchers observe 1.0000000000004 (twelve zeroes) units of time.

If you want to be on an object where the people observing you experience twice the time (Δt = 2) you do (Δt0 = 1), you will need to travel (c*√3)/2 or 259,627,884.491 m/s (580,771,037.247 mph). That is 86% the speed of light!

Archer's Paradox (E.J. Rendtroff, 1913)

In archery, archers aim their arrows slightly to the side, instead of directly at the target. On the surface, that seems crazy. This is where the Archer's Paradox comes into effect.

Basically, when the arrow is shot, it travels in an "S" curve. Drawing a string makes the arrow bend such that he tip is pointed away from the target. As the arrow is fired and the string returns to the bow, the arrow bends the other way, turning the arrow back to the target.

Other factors to making accurate shots include the stiffness of the arrow, brace height, and wind conditions. I found this video by Billgsgate helpful:

Galactic Coordinates

Galactic Coordinates are spherical coordinates that are set such as:

* The center is our sun.
* The coordinates are (l°, b°), where l is the longitude (0° to 360°, flat angle) and the latitude (-90° to 90°, height).
* Pointing "due east", l = 0° and b = 0° is pointing towards the center of the Milky Way. "Due west", l = 180° and b = 0° points away from the center of the Galaxy.

Using Wolfram Alpha ( ) and an online coordinator converter ( ), here are the 30° longitude markers when latitude is 0° (b = 0°):

* 0° points towards the constellation Sagittarius (as it should, it having the Milky Way center)
* 30° points towards Aquila the Eagle
* 60° points towards the Vulpecula the Fox
* 90° points towards Cygnus the Swan
* 120° points towards Cassiopeia the Vain Queen
* 150° points towards Perseus the Hero
* 180° points towards Auriga the Charioteer
* 210° points towards Monoceros the Unicorn
* 240° points towards Puppis (a ship's poop deck)
* 270° points towards Vela (a ship's sails)
* 300° points towards Crux, The Southern Cross
* 330° points towards Norma (a carpenter's square (measuring tool))

Spherical Lenses (see figure 2 below)

P = place of object (with distance s)
P' = place of image (with distance s')
C = center of curvature
V = vertex of the lens

General relations:

tan α = h/(s - δ)
tan β = h/(s' - δ)
tan Φ = h/(R - δ)

However, if α < π/2 ( α < 45° ), we are dealing with paraxial rays:

1/S + 1/S' = 2/R

Surprisingly, the object is far from the vertex.

Forgive me if I repeat things. Instead of going out to clobber everyone last Black Friday for that extra 10% off, I stayed home and cracked open some books that I have been meaning to look at for months. I hope you find this enjoyable and insightful.

The best always,


P.S. I was thinking about adding a section (or blog entry) about the age of Aquarius and some of the head scratchers I have about it. I am not sure if this subject would be appropriate for this blog. If you have any thoughts about this, or anything else, go and ahead and comment! - E.S.

This blog is property of Edward Shore. 2014

TI 30Xa Algorithms: Greatest Common Divisor

TI 30Xa Algorithms: Greatest Common Divisor To find the greatest common divisor between two positive integers U and V: Let U ≥ V. ...