atmp

Module Simpson_mod Implicit none Real(kind=8) :: a = 0.d0, b = 1.d0 !// 积分区间 Real(kind=8) :: pi = acos(-1.d0), eps = 1.d-8, s0 Real(kind=8) :: calPi = 0.d0 !// 数值积分解 Contains Real(kind=8) function func ( x ) Implicit none Real(kind=8) :: x func = 4.d0 / ( 1.d0 + x * x ) !// 此函数的积分值为pi End function func Recursive Real(kind=8) function simpson ( atmp, btmp, eps, s ) result( calPi ) Implicit none Real(kind=8), intent(in) :: atmp, btmp, eps, s Real(kind=8) :: h, s1, s2 h = ( btmp - atmp ) / 2.d0 s1 = h / 6.d0 * ( func(atmp) + func(atmp+h/2.d0) + 4.d0*func(atmp+h/2.d0) ) s2 = h / 6.d0 * ( func(atmp

#include"U8glib.h" U8GLIB_SSD1306_128X64 u8g(U8G_I2C_OPT_NONE);//设置设备名称：I2C-SSD1306-128*64(OLED) #define UP 11//定义方向键上为Arduino引脚11号引脚 #define DOWN 10//定义方向键下为Arduino引脚10号引脚 #define LEFT 9//定义方向键上为Arduino引脚9号引脚 #define RIGHT 8//定义方向键上为Arduino引脚8号引脚 #define A 7//定义方向键上为Arduino引脚7号引脚 #define B 6//定义方向键上为Arduino引脚6号引脚 /***********************************************/ //初始化变量 //声明变量很多地方用了byte类型不用int类型，可以节约内存 byte wait=40;//延迟 int HP=20;//HP byte PPX=4;//初始化玩家X位置 byte PPY=2;//初始化玩家Y位置 byte PX=0;//初始化玩家X轴坐标 byte PY=0;//初始化玩家Y轴坐标 int RT=1;//初始化运行周期 int S=0;//分数 byte OA;//障碍物 byte OB;//障碍物 byte OC;/

* **使用范例**： * * @example * var getParameter=new getparameter(); * var fromId=getParameter.from; */ function Getparameter(key){ var QueryString = { data: {}, Initial: function() { var aPairs,aTmp,a; var queryString = location.search; queryString = queryString.substr(1, queryString.length); aPairs = queryString.split("&"); for (var i = 0; i < aPairs.length; i++) { aTmp = aPairs[i].split("="); this.data[aTmp[0]] = aTmp[1]; } }, GetValue: function(key) { return QueryString.data[key]; } }; QueryString.Initial(); return QueryString.data } 　　 来源： https://www.cnblogs.com/yxkNotes/p/11527628.html