I first wrote this code in 1994. It was version three. I could not ever get it to run to completion.
Puny desktops, and the early versions kept crashing. I got version 12 about a month ago.
I finally get to hear what I write. It has been what? …30 years.
I’m not too bright. Could anyone help make the code more efficient?
I am sorry if I am breaking the community rules…I am desperate…this is my message in a bottle.
Best wishes.
Patrick Michael Joseph Rose
lottery ticket.nb (719 KB)
Oh yeah. One other thing. For whatever its worth. Thank you Janell Pummill.
A considerable amount is missing e.g. bot, top, middle definitions.
Thank you so much for responding. I am not feeling well. I want to cooperate in whatever way possible.
t1=top=soprano
b1=bottom=bass
middle and middle2 are m1 and m12 which are alto and tenor I cannot tell which right now.
I have to lay back down.
Just tell me what you need and I will get on it A.S.A.P.
lo siento, es tut mir leid. but could you please define what you mean by definitions?
I mean they do not have values assigned to them. So the code cannot be run, the plots cannot be regenerated, etc.
They are defined as lists and they were in the first upload, but it was all out of order.
Now all you have to do is select all and evaluate.
It is all in order now.
It will take about 33 hours to run if your computer is as week as mine.
just hit -ctrl a- and shift enter.nb (584 KB)
Every Mathematica version and computer I ever had could not complete the run till now.
The goal is to make the divisions of the octave so high that they sound like sliding pitches, yet they still drive toward the tonic. microtonal tonalism
A kind of calculus (in the sense of infinitely many infinitely thin things being summed) theory of music .
I am vertical now, and making coffee. I still feel like garbage, but ready to talk. If needed.
It has probably all been done already…I had the idea back in 1990, and just was not taken seriously.
Still probably not.
I added the following to your 30 year old code and it ran without a hitch in just over 2 minutes on my six year old iMac, producing 128 seconds of freakish electronic music. Don’t quit your day job. 
samplerate = 8000; (* samples per second *) samples = Table[(Sin[Pi*a] + Sin[Pi *b] + Sin[Pi *c] + Sin[Pi *d]), {x, -64, 64, 1./samplerate}]; (* takes 138 seconds *) ListPlay[ samples, SampleRate -> samplerate]
Thank you so much. I will attempt to apply what you did.
And no, I will not quit my day job
I am feeling much better.
In Dallas City.
Every time I go shopping it seems I get sick then better.
Thank you so much.
It will be a day before I can attempt to use your code.
It is AP testing time online and my kiddos are keeping me busy.
and I am in the middle of what I hope will be my last 30-hour run.
Attached is your code I am running.
I only changed the sample rate to double the highest frequency of 6000 in the piece.
It has already been 15 minutes and it still has not evaluated.
Does anyone want to provide a second opinion?
it has been 30 minutes and the code is still evaluating.
I strongly suspect it will take 30 hours.
Anyone?
Well, it has been six hours and the code you gave me is still running.
After it runs, I will try the 8000 sample rate. It is little surprise that it sounded like “freakish electronic music” at a sample rate of 8000hz. This piece needs a minimum of 12000 Hz.
As I said I will try it at 8000Hz and see if it runs at 138 seconds.
I have uploaded a second composition that is more consonant at the beginning and has a volume control in the code.
The idea is to compose with more divisions to the octave so that at least one voice sounds like a continuous curve and the whole piece still has a drive to the tonic. It already sounds like sliding pitches since I use a Fourier series technique to make a compound Sin Cos function that approximates the discrete voice line. I am not talking about that. The discrete voice line has to be made up of such tiny divisions that it sounds like a continuous line and yet the whole piece is still driving to the tonic. I have wanted to know the math properties of that ideal continuous voice line for 30 years. A continuous voice where every point is part of a Harmony.
Whoops forgot the file for the pretty one.
just crtl alt shift enter this one is composed to sound more consonant.nb (590 KB)
