Return to Answer

added 196 characters in body

edited Aug 23, 2016 at 17:14

8.7k
2
30
48

im1 = ImageReflect[Import["1.png"]]; im2 = ImageReflect[Import["2.png"]]; im3 = ImageReflect[Import["3.png"]];

Simple example:

ima = Raster[ImageData[im1], {{-1.604, -0.92}, {1.604, 1.08}}]; imb = Raster[ImageData[im2], {{-0.75, -0.75}, {0.8, 1.25}}]; imc = Raster[ImageData[im3], {{-0.5, -1}, {0.8, 1}}]; Manipulate[ Graphics[{Translate[ima, {-3, a}], Translate[imb, {0, b}], Translate[imc, {2, c}]}, ImageSize -> Medium], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Simply reduce the -3 and 2 if you want them to touch.

Taxing exampleYou can also change the (for precreating animations onlyRasters[] dynamically themselves, intensive):which is easier, but more taxing.

Manipulate[ GraphicsRow[{Graphics[ Raster[ImageData[im1], {{-1.604, -0.92 + a}, {1.604, 1.08 + a}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> Medium], Graphics[ Raster[ImageData[im2], {{-0.75, -0.75 + b}, {0.8, 1.25 + b}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[Raster[ImageData[im3], {{-0.5, -1 + c}, {0.8, 1 + c}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}]}], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Simple example:

Manipulate[ Graphics[{Translate[ima, {-3, a}], Translate[imb, {0, b}], Translate[imc, {2, c}]}, ImageSize -> Medium], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Simply reduce the -3 and 2 if you want them to touch.

Taxing example (for precreating animations only, intensive):

Manipulate[ GraphicsRow[{Graphics[ Raster[ImageData[im1], {{-1.604, -0.92 + a}, {1.604, 1.08 + a}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> Medium], Graphics[ Raster[ImageData[im2], {{-0.75, -0.75 + b}, {0.8, 1.25 + b}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[Raster[ImageData[im3], {{-0.5, -1 + c}, {0.8, 1 + c}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}]}], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

im1 = ImageReflect[Import["1.png"]]; im2 = ImageReflect[Import["2.png"]]; im3 = ImageReflect[Import["3.png"]];

Simple example:

ima = Raster[ImageData[im1], {{-1.604, -0.92}, {1.604, 1.08}}]; imb = Raster[ImageData[im2], {{-0.75, -0.75}, {0.8, 1.25}}]; imc = Raster[ImageData[im3], {{-0.5, -1}, {0.8, 1}}]; Manipulate[ Graphics[{Translate[ima, {-3, a}], Translate[imb, {0, b}], Translate[imc, {2, c}]}, ImageSize -> Medium], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Simply reduce the -3 and 2 if you want them to touch.

You can also change the Rasters[] dynamically themselves, which is easier, but more taxing.

Manipulate[ GraphicsRow[{Graphics[ Raster[ImageData[im1], {{-1.604, -0.92 + a}, {1.604, 1.08 + a}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> Medium], Graphics[ Raster[ImageData[im2], {{-0.75, -0.75 + b}, {0.8, 1.25 + b}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[Raster[ImageData[im3], {{-0.5, -1 + c}, {0.8, 1 + c}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}]}], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

added 243 characters in body

Source Link

edited Aug 23, 2016 at 17:00

Feyre

8.7k
2
30
48

I opted for a more expansiveSimple example:

Manipulate[ Graphics[{Translate[ima, {-3, a}], Translate[imb, {0, b}], Translate[imc, {2, c}]}, ImageSize -> Medium], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Simply reduce the -3 and 2 if you want them to touch.

Taxing example (for precreating animations only, intensive):

Manipulate[ GraphicsRow[{Graphics[ Raster[ImageData[im1], {{-1.604, -0.92 + a}, {1.604, 1.08 + a}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> Medium], Graphics[ Raster[ImageData[im2], {{-0.75, -0.75 + b}, {0.8, 1.25 + b}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[Raster[ImageData[im3], {{-0.5, -1 + c}, {0.8, 1 + c}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}]}], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

I opted for a more expansive example.

Manipulate[ GraphicsRow[{Graphics[ Raster[ImageData[im1], {{-1.604, -0.92 + a}, {1.604, 1.08 + a}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> Medium], Graphics[ Raster[ImageData[im2], {{-0.75, -0.75 + b}, {0.8, 1.25 + b}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[Raster[ImageData[im3], {{-0.5, -1 + c}, {0.8, 1 + c}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}]}], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Simple example:

Manipulate[ Graphics[{Translate[ima, {-3, a}], Translate[imb, {0, b}], Translate[imc, {2, c}]}, ImageSize -> Medium], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Simply reduce the -3 and 2 if you want them to touch.

Taxing example (for precreating animations only, intensive):

Manipulate[ GraphicsRow[{Graphics[ Raster[ImageData[im1], {{-1.604, -0.92 + a}, {1.604, 1.08 + a}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> Medium], Graphics[ Raster[ImageData[im2], {{-0.75, -0.75 + b}, {0.8, 1.25 + b}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[Raster[ImageData[im3], {{-0.5, -1 + c}, {0.8, 1 + c}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}]}], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]

Source Link

answered Aug 23, 2016 at 16:48

Feyre

8.7k
2
30
48

I opted for a more expansive example.

Manipulate[ GraphicsRow[{Graphics[ Raster[ImageData[im1], {{-1.604, -0.92 + a}, {1.604, 1.08 + a}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}, ImageSize -> Medium], Graphics[ Raster[ImageData[im2], {{-0.75, -0.75 + b}, {0.8, 1.25 + b}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}], Graphics[Raster[ImageData[im3], {{-0.5, -1 + c}, {0.8, 1 + c}}], Frame -> True, GridLines -> Automatic, Method -> {"GridLinesInFront" -> True}, PlotRange -> {{-2, 2}, {-2, 2}}]}], {{a, 0, "Uncoupled"}, -2, 2}, {{b, 0, "Δtr"}, -2, 2}, {{c, 0, "Coupled"}, -2, 2}]