x <- qstate(nbits=2)
x
x <- qstate(nbits=2, coefs=as.complex(sqrt(rep(0.25, 4))), basis=",")
x
x <- qstate(nbits=1, coefs=as.complex(sqrt(rep(0.5, 2))), basis=c("|dead>", "|alive>"))
x
x <- qstate(nbits=2, noise=genNoise(nbits=2, p=1))
Id(2) * x
x <- qstate(nbits=3, noise=genNoise(p=1, bits=1:2, error="small", sigma=0.1))
Id(2) * x
Run the code above in your browser using DataLab