sudo apt-get update
sudo apt-get install wolfram-engine


sudo wolfram


Print ["Hello world!"]


{1, 2, 3, 4, 5}
{"this", "is", "a", "list", "of", "strings"}


List[1, 2, 3, 4, 5]


Range[3, 10, 1/2]


Table[i+1, {i, 3, 10, 1/2}]


matrix = {{5, 1, 3}, {7, 3, 0}, {9, 2, 4}}


MatrixForm[matrix]


Sqrt[{5, 1, 3, 8, 9, 4}]


list = {1, 2, 3, 4, 5, 6}
2 * list[[1]]


list[[4]] = Sqrt[list[[4]]]


diameter = 2 * 5
circumference = 2 * Pi * 5
area = Pi * 5^2


radius = 5
diameter = 2 * radius
circumference = 2 * Pi * radius
area = Pi * radius^2


radius = 5;
diameter = 2 * radius
circumference = 2 * Pi * radius
area = Pi * radius^2


DeviceWrite["GPIO", 14 -> 1]


DeviceWrite["GPIO", 14 -> 0]


Do[
        DeviceWrite["GPIO", 14->1];
        Pause[0.5];
        DeviceWrite["GPIO", 14->0];
        Pause[0.5];
        , {5}]


ledpins = {14, 15, 18}


Do[
       DeviceWrite["GPIO", ledpins[[i]]->1];
       Pause[0.5];
       , {i, 3}]


Do[
       DeviceWrite["GPIO", ledpins[[i]]->0];
       Pause[0.5];
       , {i, 3}]


DeviceRead["RaspiCam"]


image = DeviceRead["RaspiCam"]


image = Import["!raspistill -n -t 1 -o -", "JPG"]


image = Import["http://www.raspberrypi.org/wp-content/uploads/2012/03/Raspi_Colour_R.png"]


image = Import["/path/to/your/image.jpg"]


ImageAdjust[image, {0.6, 0.2, 1.5}]


ImageEffect[image, {"SaltPepperNoise" , 0.1}]


processedimage = ImageAdjust[image, {0.6, 0.2, 1.5}]


Export["/home/pi/ProcessedImage.jpg", processedimage]