


.
FrediFizzx wrote:@gill1109 Well, thank you for your praise but we didn't need all the excess nonsense to go with it. It is for sure a Gill killer. No doubt about it.![]()
![]()
![]()
set.seed(1234)
M <- 1000000
theta <- runif(M, 0, 360)
beta1 <- 0.32
beta2 <- 0.938
phi <- 3
xi <- 0
s1 <- theta
s2 <- theta + 180
cosD <- function(x) cos(pi * x / 180)
sinD <- function(x) sin(pi * x / 180)
lambda1 <- beta1 * cos(theta/phi)^2
lambda2 <- beta2 * cos(theta/phi)^2
a <- 0
b <- 45
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
sum(Aa1*Bb1 + Aa2*Bb2)/(sum(Aa1*Bb1 != 0) + (sum(Aa2*Bb2 != 0)))
a <- 0
b <- 135
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
sum(Aa1*Bb1 + Aa2*Bb2)/(sum(Aa1*Bb1 != 0) + (sum(Aa2*Bb2 != 0)))
a <- 90
b <- 45
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
sum(Aa1*Bb1 + Aa2*Bb2)/(sum(Aa1*Bb1 != 0) + (sum(Aa2*Bb2 != 0)))
a <- 90
b <- 135
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
sum(Aa1*Bb1 + Aa2*Bb2)/(sum(Aa1*Bb1 != 0) + (sum(Aa2*Bb2 != 0)))
set.seed(1234)
M <- 10000
theta <- runif(M, 0, 360)
beta1 <- 0.32
beta2 <- 0.938
phi <- 3
xi <- 0
s1 <- theta
s2 <- theta + 180
cosD <- function(x) cos(pi * x / 180)
sinD <- function(x) sin(pi * x / 180)
lambda1 <- beta1 * cos(theta/phi)^2
lambda2 <- beta2 * cos(theta/phi)^2
coins <- sample(c("H", "T"), M, replace = TRUE)
a <- 0
b <- 45
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
A <- ifelse(coins =="H", Aa1, Aa2)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
B <- ifelse(coins =="H", Bb1, Bb2)
sum(A*B)/sum(A*B != 0)
a <- 0
b <- 135
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
A <- ifelse(coins =="H", Aa1, Aa2)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
B <- ifelse(coins =="H", Bb1, Bb2)
sum(A*B)/sum(A*B != 0)
a <- 90
b <- 45
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
A <- ifelse(coins =="H", Aa1, Aa2)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
B <- ifelse(coins =="H", Bb1, Bb2)
sum(A*B)/sum(A*B != 0)
a <- 90
b <- 135
Aa1 <- ifelse(abs(cosD(a - s1)) > lambda1, sign(cosD(a - s1)), 0)
Aa2 <- ifelse(abs(cosD(a - s1)) < lambda2, sign(sinD(a - s1 + xi)), 0)
A <- ifelse(coins =="H", Aa1, Aa2)
Bb1 <- ifelse(abs(cosD(b - s2)) > lambda1, sign(cosD(b - s2)), 0)
Bb2 <- ifelse(abs(cosD(b - s2)) < lambda2, sign(sinD(b - s2 + xi)), 0)
B <- ifelse(coins =="H", Bb1, Bb2)
sum(A*B)/sum(A*B != 0)
> sum(A*B == 0)/M
[1] 0.5079
>
FrediFizzx wrote:@gill1109 No problem. I just took the zeroes out. What say you now?
https://www.wolframcloud.com/obj/fredif ... v-simp2.nb
EPRsims/newCS-23-2hv-simp2.pdf
EPRsims/newCS-23-2hv-simp2.nb
Enjoy the 100 percent local Gill theory killer!![]()
![]()
![]()
![]()
.
jreed wrote:FrediFizzx wrote:@gill1109 No problem. I just took the zeroes out. What say you now?
https://www.wolframcloud.com/obj/fredif ... v-simp2.nb
EPRsims/newCS-23-2hv-simp2.pdf
EPRsims/newCS-23-2hv-simp2.nb
Enjoy the 100 percent local Gill theory killer!![]()
![]()
![]()
![]()
.
Great work Fred. You got rid of all that magic code, and still obtained a perfect cosine. Now we are back to the old detection loophole again. I ran the code with 10,000 trials and found that your routine actually generated 20,000 trials from the two tests using lambda1 and lambda2. In the A channel, 12,393 are detected trials, and the rest, 7607, are "no result" trials. In the B channel, 12,439 are good and 7561 are "no result". When the results are analyzed, these "no result" trials are dropped. That's the detection loophole. You must have spent some time fine tuning this to get the near perfect cosine. I'm impressed.
FrediFizzx wrote:@jreed Sorry, there is no detection loophole. 5 million trials, Total Events=4,992,002. Oops, lost a few in the analysis. Not enough for detection loophole. Lucky for us, the analysis process takes out all those "no result" artifacts. You Bell fanatics are finished!![]()
![]()
![]()
![]()
Joy Christian wrote:FrediFizzx wrote:@jreed Sorry, there is no detection loophole. 5 million trials, Total Events=4,992,002. Oops, lost a few in the analysis. Not enough for detection loophole. Lucky for us, the analysis process takes out all those "no result" artifacts. You Bell fanatics are finished!![]()
![]()
![]()
![]()
About 0.16% of events are missing. Where did they go?
FrediFizzx wrote:I can't believe you Bell fanatics can't figure this simulation out. It is so easy.![]()
.
jreed wrote:FrediFizzx wrote:I can't believe you Bell fanatics can't figure this simulation out. It is so easy.![]()
.
Here's a little question for you:
In your program add the following statement: Total[Abs[A]] after the statement A=outA[[All,2]];. Then rerun the program with however many trials you want.
What do you think the resulting output of Total means? You can do the same for the B part by adding Total[Abs[B]].
FrediFizzx wrote:jreed wrote:FrediFizzx wrote:I can't believe you Bell fanatics can't figure this simulation out. It is so easy.![]()
.
Here's a little question for you:
In your program add the following statement: Total[Abs[A]] after the statement A=outA[[All,2]];. Then rerun the program with however many trials you want.
What do you think the resulting output of Total means? You can do the same for the B part by adding Total[Abs[B]].
I don't have to even do that as I know what the result will be. Half of the suckers are artifacts.We know the "no results" are artifacts then the rest of the other over whatever m is are artifacts matching the other side. So the analysis process weeds them all out. It's perfect.
.
FrediFizzx wrote:@gill1109 Nope! You have it all wrong. Besides the "no results" there are other artifacts that the analysis process takes out. There is absolutely no detection loophole happening here since I get almost the same number of events after analysis processing as the trial numbers we started with. And I get the same angles a and b out as went in. So, no conspiracy is happening either.
FrediFizzx wrote:gill1109 wrote:FrediFizzx wrote:@gill1109 Nope! You have it all wrong. Besides the "no results" there are other artifacts that the analysis process takes out. There is absolutely no detection loophole happening here since I get almost the same number of events after analysis processing as the trial numbers we started with. And I get the same angles a and b out as went in. So, no conspiracy is happening either.
First you double the number of outcome sets by using two channels at once, and later you delete half again!
I don't delete the other half of junk artifacts, the analysis process does it automatically. It is where the A and B matching belongs. If it don't match, it is gone.
gill1109 wrote:FrediFizzx wrote:@gill1109 Nope! You have it all wrong. Besides the "no results" there are other artifacts that the analysis process takes out. There is absolutely no detection loophole happening here since I get almost the same number of events after analysis processing as the trial numbers we started with. And I get the same angles a and b out as went in. So, no conspiracy is happening either.
First you double the number of outcome sets by using two channels at once, and later you delete half again!
FrediFizzx wrote:gill1109 wrote:FrediFizzx wrote:@gill1109 Nope! You have it all wrong. Besides the "no results" there are other artifacts that the analysis process takes out. There is absolutely no detection loophole happening here since I get almost the same number of events after analysis processing as the trial numbers we started with. And I get the same angles a and b out as went in. So, no conspiracy is happening either.
First you double the number of outcome sets by using two channels at once, and later you delete half again!
I don't delete the other half of junk artifacts, the analysis process does it automatically. It is where the A and B matching belongs. If it don't match, it is gone.
Return to Sci.Physics.Foundations
Users browsing this forum: No registered users and 77 guests