I've made some Improvements - Psych forums

Our partner

Jump to:

Thoughts from transgressing dimension
Here you can see some of my wild thoughts and you may find some good worldly ideas on here. I just love thinking and thought I should let my thinking be read.

highdimensionman: Consumer 2; Posts: 55; Joined: Tue Jul 08, 2014 5:38 pm; Blog: View Blog (1012)

Archives

November 2022

China should know they can change their fate and the worlds fate: Mon Nov 28, 2022 8:08 pm

September 2022
August 2022
July 2022
June 2022
May 2022
April 2022
March 2022
February 2022
January 2022
December 2021
November 2021
October 2021
September 2021
August 2021
July 2021
June 2021
May 2021
April 2021
January 2021
December 2020
November 2020
October 2020
September 2020
August 2020
July 2020
June 2020
May 2020
April 2020
February 2020
November 2019
October 2019
September 2019
May 2018
April 2018
March 2018
February 2018
December 2017
August 2017
May 2017
April 2017
March 2017
February 2017
December 2016
November 2016
October 2016
September 2015
August 2015
April 2015
March 2015
February 2015
January 2015
December 2014
November 2014
September 2014
August 2014

Search Blogs

Advanced search

I've made some Improvements

by highdimensionman on Sun Apr 05, 2015 5:16 am

I think I've finally found a way to deduce if a number is a prime quick for large primes.
The code is now tidied up but not compilable yet. Currently I'm taking my studies into FASM and intend to bring my maths down optimal in assembly.

heres the test try it yourself. The cheapest way to buy mathematica is with a Raspberry Pi thats what I'm using at the moment.

PrimeQu[cex_] :=
Catch[ Module[ {zcv = PowerMod[2, cex, cex] - 2, zcv2 = JacobiSymbol[ FromDigits[Append[Table[1, {xvc, Floor[Log[2, cex]] + 1}], 0], 3] FromDigits[ Append[Table[1, {xvc, Floor[Log[3, cex]] + 1}], 0], 2], cex], zcv3 = JacobiSymbol[ FromDigits[Append[Table[1, {xvc, Floor[Log[2, cex]] + 1}], 0], 5] FromDigits[ Append[Table[1, {xvc, Floor[Log[5, cex]] + 1}], 0], 2], cex], Var25, Var26, ced = cex }, Var25 = If[GCD[ced, 2] == 2 || GCD[ced, 3] == 3 || GCD[ced, 5] == 5, If[ced == 2 || ced == 3 || ced == 5, 1, 2], 2]; Var26 = If[zcv == 0 && Abs[zcv2] == 1 && Abs[zcv3] == 1, 1, 2]; If[Var25 == 1 && Var26 == 1, Throw["True"], Throw["False"]]; ]];

Diagnosis - Paranoid Schizophrenia although challenged.
Medication - Clopixol injection 4 weekly.
Personal diagnosis - I battle with the chemistry and biological effects of Clopixol every day trying to improve on the heath and range of my approach.
I try to improve my thinking. Hopefully some good ideas shine through.

0 Comments Viewed 7871 times

Who is online

Registered users: Bing [Bot], europa777, Google [Bot], Google Adsense [Bot], Google Feedfetcher, OMNICELL