spatial3d_mirror: Mirror Spatial 3D Reasoning Item

Description Usage Arguments Details Value Author(s) References See Also Examples

Description

This function generates the mirror image of the 3 dimensional display figure. It acts as a wrap because the creation of the figure is done using functions from the rgl package.

Usage

1
2
spatial3d_mirror(obj, angle = pi/1.3, x = 0.3, y = 3, z = 0.8,
  cubes = 1, axis = TRUE)

Arguments

obj

An object with class of threeD.

angle, x, y, z

See details.

cubes

The number of connected cubes to generate.

axis

Showing the axis is helpful when first testing the function.

Details

For 3D figures, some of the cubes may be hidden in sight when automatically generated. Hence, one would need to rotate the display figure several times to ensure that none of the cubes are hidden.

The arguments angle, x, y, z represents the rotation of angle radians based on the x, y and z axis. This is a wrapper to the rotationMatrix function from the rgl package. Changing the values in the arguments angle, x, y, z coordinates allows one to programmatically change angles to study potential cognitive operators at work.

You can also rotate the figure interactively by clicking on the figure and moving it in different direction.

Value

figure

Return the matrix that generates the mirror image of the display figure.

Author(s)

Aiden Loe

References

https://en.wikipedia.org/wiki/Radian

Bejar, I. I. (1990). A generative analysis of a three-dimensional spatial task. Applied Psychological Measurement, 14(3), 237-245.

See Also

lisy, arith, spatial2d, spatial3d

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
display <- spatial3d(seed=4, angle=pi/1.3, x=0.3,y=4,z=0.8, cubes=9, axis = TRUE)
display_mirror <- spatial3d_mirror(display, angle=pi/1.3, x=0.3,y=4,z=0.8, cubes=9, axis = TRUE)

# To save the figure (not run)
# library(rgl)
# display_mirror <- spatial3d_mirror(display, angle=pi/1.3, x=0.3,y=4,z=0.8, cubes=9, axis = TRUE)
# wd<- '~/desktop'

# save in pdf
# item <- 1
# rgl.postscript(save,"pdf")

# save in png
# rgl.snapshot(filename="image3D.png",fmt="png")

Aidenloe/AIG documentation built on May 5, 2019, 1:34 p.m.