Sophia Dorothea, Queen of Frederick Willem I of Prussia