follow wall 1

Dependencies:   mbed

Committer:
khaledelmadawi
Date:
Tue Apr 08 13:23:06 2014 +0000
Revision:
0:b703833f6795
follow wall 1

Who changed what in which revision?

UserRevisionLine numberNew contents of line
khaledelmadawi 0:b703833f6795 1 /* mbed SHARPIR distance sensor
khaledelmadawi 0:b703833f6795 2 * Copyright (c) 2010 Tomas Johansen
khaledelmadawi 0:b703833f6795 3 *
khaledelmadawi 0:b703833f6795 4 * Permission is hereby granted, free of charge, to any person obtaining a copy
khaledelmadawi 0:b703833f6795 5 * of this software and associated documentation files (the "Software"), to deal
khaledelmadawi 0:b703833f6795 6 * in the Software without restriction, including without limitation the rights
khaledelmadawi 0:b703833f6795 7 * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
khaledelmadawi 0:b703833f6795 8 * copies of the Software, and to permit persons to whom the Software is
khaledelmadawi 0:b703833f6795 9 * furnished to do so, subject to the following conditions:
khaledelmadawi 0:b703833f6795 10 *
khaledelmadawi 0:b703833f6795 11 * The above copyright notice and this permission notice shall be included in
khaledelmadawi 0:b703833f6795 12 * all copies or substantial portions of the Software.
khaledelmadawi 0:b703833f6795 13 *
khaledelmadawi 0:b703833f6795 14 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
khaledelmadawi 0:b703833f6795 15 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
khaledelmadawi 0:b703833f6795 16 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
khaledelmadawi 0:b703833f6795 17 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
khaledelmadawi 0:b703833f6795 18 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
khaledelmadawi 0:b703833f6795 19 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
khaledelmadawi 0:b703833f6795 20 * THE SOFTWARE.
khaledelmadawi 0:b703833f6795 21 */
khaledelmadawi 0:b703833f6795 22
khaledelmadawi 0:b703833f6795 23
khaledelmadawi 0:b703833f6795 24 #include "mbed.h"
khaledelmadawi 0:b703833f6795 25 #include "SHARPIR.h"
khaledelmadawi 0:b703833f6795 26
khaledelmadawi 0:b703833f6795 27
khaledelmadawi 0:b703833f6795 28 /* This function is currently only working for the Sharp GP2Y0A02YK0F sensor
khaledelmadawi 0:b703833f6795 29 * which measures from around 20cm to 150cm. To adapt this to other Sharp IR
khaledelmadawi 0:b703833f6795 30 * sensors, you have to calculate the variables reg and exp.
khaledelmadawi 0:b703833f6795 31 *
khaledelmadawi 0:b703833f6795 32 * To quickly calculate reg and exp, use microsoft excel to plot the graph
khaledelmadawi 0:b703833f6795 33 * provided in the datasheet. You should create a scatterplot (except that
khaledelmadawi 0:b703833f6795 34 * the y-axis is [cm], and x-axis is [V]).
khaledelmadawi 0:b703833f6795 35 *
khaledelmadawi 0:b703833f6795 36 * When you get the values, right click the line in the graph and select
khaledelmadawi 0:b703833f6795 37 * "Add Trendline". Select "power". Also, in the trendline options, check
khaledelmadawi 0:b703833f6795 38 * that you want to see the function. It will then be printed in your
khaledelmadawi 0:b703833f6795 39 * scatterplot.
khaledelmadawi 0:b703833f6795 40 *
khaledelmadawi 0:b703833f6795 41 * This is the function: Reg*x^exp.
khaledelmadawi 0:b703833f6795 42 *
khaledelmadawi 0:b703833f6795 43 *
khaledelmadawi 0:b703833f6795 44 * Example:
khaledelmadawi 0:b703833f6795 45 *
khaledelmadawi 0:b703833f6795 46 * SHARPIR sensor(p20);
khaledelmadawi 0:b703833f6795 47 * sensor.calibrate(57.373, 1.3166, 0.45, 2.5);
khaledelmadawi 0:b703833f6795 48 * while(1){
khaledelmadawi 0:b703833f6795 49 * serial.printf("cm: %f ", sensor.cm());
khaledelmadawi 0:b703833f6795 50 * wait_ms(50);
khaledelmadawi 0:b703833f6795 51 * }
khaledelmadawi 0:b703833f6795 52 *
khaledelmadawi 0:b703833f6795 53 * You can also use this method to manually plot values you've measured with
khaledelmadawi 0:b703833f6795 54 * the "volt" function, which in the end should give a result similar to the
khaledelmadawi 0:b703833f6795 55 * values provided below.
khaledelmadawi 0:b703833f6795 56 *
khaledelmadawi 0:b703833f6795 57 * Feel free to contact me with improvements for the source code, and
khaledelmadawi 0:b703833f6795 58 * especially for values that would work for other sensors.
khaledelmadawi 0:b703833f6795 59 */
khaledelmadawi 0:b703833f6795 60
khaledelmadawi 0:b703833f6795 61
khaledelmadawi 0:b703833f6795 62 SHARPIR::SHARPIR(PinName AnalogPort)
khaledelmadawi 0:b703833f6795 63 : _analogin(AnalogPort) {
khaledelmadawi 0:b703833f6795 64 higherrange=2.5;
khaledelmadawi 0:b703833f6795 65 lowerrange=0.45;
khaledelmadawi 0:b703833f6795 66 reg=57.373; //60.495
khaledelmadawi 0:b703833f6795 67 exp=-1.3166; //-1.1904
khaledelmadawi 0:b703833f6795 68 }
khaledelmadawi 0:b703833f6795 69
khaledelmadawi 0:b703833f6795 70 void calibrate(double reg, float exp, double lowerrange, double higherrange) { //sets new reg and exp value
khaledelmadawi 0:b703833f6795 71 }
khaledelmadawi 0:b703833f6795 72
khaledelmadawi 0:b703833f6795 73 float SHARPIR::volt() {
khaledelmadawi 0:b703833f6795 74 return(_analogin.read()*3.3); //analogin function returns a percentage which describes how much of 3.3v it's reading, therefor multiply it by 3,3 to get the correct analogin voltage.
khaledelmadawi 0:b703833f6795 75 }
khaledelmadawi 0:b703833f6795 76
khaledelmadawi 0:b703833f6795 77 float SHARPIR::cm() {
khaledelmadawi 0:b703833f6795 78 float v;
khaledelmadawi 0:b703833f6795 79 v=volt();
khaledelmadawi 0:b703833f6795 80 if (v>higherrange) //sensor is out of higher range
khaledelmadawi 0:b703833f6795 81 return(reg*pow(v, exp));//0
khaledelmadawi 0:b703833f6795 82 else if (v<lowerrange)
khaledelmadawi 0:b703833f6795 83 return(-1.0); //sensor is out of lower range
khaledelmadawi 0:b703833f6795 84 else
khaledelmadawi 0:b703833f6795 85 return(reg*pow(v, exp));
khaledelmadawi 0:b703833f6795 86 }
khaledelmadawi 0:b703833f6795 87
khaledelmadawi 0:b703833f6795 88 float SHARPIR::inch() {
khaledelmadawi 0:b703833f6795 89 float v;
khaledelmadawi 0:b703833f6795 90 v=volt();
khaledelmadawi 0:b703833f6795 91 if (v>higherrange) //sensor is out of higher range
khaledelmadawi 0:b703833f6795 92 return(0);
khaledelmadawi 0:b703833f6795 93 else if (v<lowerrange)
khaledelmadawi 0:b703833f6795 94 return(-1.0); //sensor is out of range
khaledelmadawi 0:b703833f6795 95 else
khaledelmadawi 0:b703833f6795 96 return(0.393700787*reg*pow(v, exp));
khaledelmadawi 0:b703833f6795 97 }