set.seed(1234) ## For reproducibility
s <- 1 ## spin 1 for photons, spin 1/2 for electrons
N <- 10^6
e <- runif(N, 0, 2*pi) ## Hidden variable "e"
p <- (sin(runif(N, 0, pi/2))^2)/2 ## Hidden variable "p"
n <- 2*s
a <- runif(N, 0, 2*pi) ## Alice's settings
b <- runif(N, 0, 2*pi) ## Bob's settings
ep <- e + 2*pi*s ## Hidden variable "e-prime"
c <- ((-1)*n)*cos(n*(a-e))
cp <- ((-1)*n)*cos(n*(b-ep))
A <- ifelse(abs(c)>p, sign(c), 0) ## Alice outcome
B <- ifelse(abs(cp)>p, sign(cp), 0) ## Bob outcome
theta <- ifelse( a-b > 0, a-b, a-b+2*pi ) ## Differences between settings
bin <- floor(theta*360/(7.5*2*pi))*7.5 ## Binned, bin-width 7.5 degrees
sample <- A!=0 & B!= 0 ## Which runs both particles detected
corrs <- tapply(A[sample]*B[sample], bin[sample], mean)
bins <- sort(unique(bin[sample]))
pdf("minkwe.pdf")
plot(bins, corrs, xlab = "Theta", ylab = "Correlation",
main = "Minkwe's Simulation, R version by R.D. Gill")
graphics.off()
## Minkwe's simple EPR simulation, now in the form of a CHSH type experiment
##
## Minkwe's algorithm as described at https://github.com/minkwe/epr-simple/
## programmed in R by R.D. Gill, 10 February 2014, Leiden.
set.seed(2345) ## For reproducibility
s <- 1 ## spin 1 for photons, spin 1/2 for electrons
N <- 10^6
e <- runif(N, 0, 2*pi) ## Hidden variable "e"
p <- (sin(runif(N, 0, pi/2))^2)/2 ## Hidden variable "p"
n <- 2*s
aLab <- sample(c(1, 2), N, replace = TRUE) ## Alice setting label
bLab <- sample(c(1, 2), N, replace = TRUE) ## Bob setting label
aDeg <- (aLab-1)*45
bDeg <- 22.5 + (bLab-1)*45
a <- aDeg*2*pi/360
b <- bDeg*2*pi/360
ep <- e + 2*pi*s ## Hidden variable "e-prime"
c <- ((-1)*n)*cos(n*(a-e))
cp <- ((-1)*n)*cos(n*(b-ep))
A <- ifelse(abs(c)>p, sign(c), 0) ## Alice outcome
B <- ifelse(abs(cp)>p, sign(cp), 0) ## Bob outcome
combo <- 2*(aLab-1) + (bLab-1)
## (1,1) becomes 0
## (1,2) becomes 1
## (2,1) becomes 2
## (2,2) becomes 3
sample <- A!=0 & B!= 0 ## Which runs both particles detected
corrs <- tapply(A[sample]*B[sample], combo[sample], mean)
names(corrs) <- c("(1,1)","(1,2)","(2,1)", "(2,2)")
corrs
> corrs <- tapply(A[sample]*B[sample], combo[sample], mean)
> names(corrs) <- c("(1,1)","(1,2)","(2,1)", "(2,2)")
> corrs
(1,1) (1,2) (2,1) (2,2)
0.5966620 -0.5941712 0.5929386 0.5949753
corrs <- tapply(A[sample]*B[sample], combo[sample], mean)
> names(corrs) <- c("(1,1)","(1,2)","(2,1)", "(2,2)")
> corrs
(1,1) (1,2) (2,1) (2,2)
0.7002947 0.6973906 -0.6982893 0.6984241
Ben6993 wrote:Does Michel agree that he has rejected pairs of the form:(1,0),(-1,0),(0,0),(0,1) or (0,-1) from the counts?
gill1109 wrote:...we have to reject the hidden variables if any x exists such that |cos(eta(x,e0)| < sin^2(eta(x, g0)).
gill1109 wrote:But theta0 depends on x too. So even though theta0 might be, for any particular x, and randomly chosen g0, a random angle in [0, 2pi], it still depends on x.
I'm afraid Michel certainly did something completely different.Joy Christian wrote:It has already been done by Michel.
gill1109 wrote:In Joy's formulas, there is a requirement that involves "for all x".
gill1109 wrote:Looks to me like the same kind of notational mix-up as I believe I identified in "Christian 1.0" (the one page paper of some years back).
Joy Christian wrote:gill1109 wrote:In Joy's formulas, there is a requirement that involves "for all x".
As I have already noted several times, the requirement is "for any x", not "for all x" simultaneously. Thus x can be equal to a, or b, or c, or d, or whatever.
The simulation consists of a Source object, generating particle pairs, to be analyzed at 2 Detection stations. The maths of the model can be summarized as:
λ = {e, p, s}, e ∈ [0..2π), s = {1/2, 1}
p = ½ sin²t, t ∈ [0..π/2)
e' = e + 2πs
A(a,λ) = sign(-1ⁿ cos n(a − e)) if |cos n(a − e)| > p, 0 otherwise
B(b,λ) = sign(-1ⁿ cos n(b − e')) if |cos n(b − e')| > p, 0 otherwise
where n = 2s
Alternatively, p = tᵏ, t ∈ [0..π/4), k=π/2 also works well.
1) The Source, and Particles:
Simply generates two tuples each with 3 parameters corresponding to the "hidden variables". The source has a single parameter spin (s) which determines the type of particles produced. For spin 1/2 particles such as electrons, s=1/2 for photons s=1.
A particle pair is generated as follows:
`e` - an angle common to both particles selected randomly each time from the range [0, 2π)
`p` - a property common to both particles selected randomly from
the distribution `½ sin²t, t ∈ [0..π/2)`
The left particle is the tuple (e, p, n) The right particle is the tuple (e + 2πs, p, n)
2) The Detection Stations:
Two stations exist named Alice and Bob. Alice will measure the left particle, while Bob will measure the right particle.
The detection at each station proceeds as follows:
- A random angle `x` is selected in the range [0, 2π). This is the detector setting.
- A transformed value `C` is calculated using the particle properties and
the detector setting `x` as `C = -1ⁿ cos n(x − e)`. The sign of this value, will
ultimately determine which channel the particle will be detected at; `+1` or `-1`
- The absolute value of `C` together with the particle property `p` will determine
if the particle goes through the filter.
If `|C| > p` the particle goes through. Every particle which goes through the
filter is detected by one of the two channels.
- The setting `x` and the output (`+1`, `-1`, or `0`) are registered locally at each station
and saved in separate files at the end of the simulation. Each station is not aware of and
uses no information from or about the other station.
gill1109 wrote:The symbol "upside down capital A" means for all, or indeed for any x, ... for whatever x you substitute, it has to be true. You can check it for a, and you can check it for b, but that is not enough: it has to be true for all x. Logic 101?
gill1109 wrote:Perhaps you can help us by writing your idea of a genuine simulation of your model?
Joy Christian wrote:gill1109 wrote:The symbol "upside down capital A" means for all, or indeed for any x, ... for whatever x you substitute, it has to be true. You can check it for a, and you can check it for b, but that is not enough: it has to be true for all x. Logic 101?
It *is* true for any x, where x can be equal to a, or b, or c, or d, or e, or f, or g, or whatever. Maths-101: http://libertesphilosophica.info/blog/w ... 1/EPRB.pdf
Heinera wrote:Then why is Michel's simulation crucially dependent on x being a (at Alice) and b (at Bob)? Replace with any other values in the code, and you get the wrong results.
Joy Christian wrote:Heinera wrote:Then why is Michel's simulation crucially dependent on x being a (at Alice) and b (at Bob)? Replace with any other values in the code, and you get the wrong results.
What?
Alice can choose any "a" she wants. She can choose a, or a', or a'', or a''', or a'''', or whatever. And likewise Bob can choose any "b" he wants. There is no restriction of any kind on the freedom of choice of Alice and Bob. You are obviously doing something wrong to get the wrong result.
Heinera wrote:Of course they can choose any a and b they want. My point was that x must be equal to Alice's (resp. Bob's) choice, and no other value. But these choices can not be known to the initial state in a local model.
Joy Christian wrote:Heinera wrote:Of course they can choose any a and b they want. My point was that x must be equal to Alice's (resp. Bob's) choice, and no other value. But these choices can not be known to the initial state in a local model.
Alice and Bob are completely free to choose any directions a and b they want. Their choices do not affect the initial state (e, t) in any way. In particular, the choices made by Alice and Bob can be changed at any time during the flights of the "photons" from the initial state to the respective choices of detectors by Alice and Bob.
Return to Sci.Physics.Foundations
Users browsing this forum: No registered users and 92 guests
