| jibanyan_equation <- function(x,y) { | |
| min(max(min(1-(x/108)^2-(y/94)^2,y),min(1-((abs(x)-119)/103)^2-((y-56)/86)^2,1-((abs(x)-15)/77)^2-((y-119)/100)^2),1-((abs(x)-42)/66)^2-(y/55)^2,min(55+y,51-abs(x),-y)),3*abs(y-100)-2*(x-75)) * | |
| min(min(max(min(1-(x/106)^2-(y/92)^2,y),min(1-((abs(x)-119)/101)^2-((y-56)/84)^2,((abs(x)-99)/40)^2+((y-54)/86)^2-1,92-abs(x)),1-((abs(x)-42)/64)^2-(y/53)^2),min(((abs(x)-52)/26)^2+((y+28)/26)^2-1,((abs(x)-51)/13)^2+(y/13)^2-1,max(abs(x)-51,y))),abs(x/51+10/51*sin(abs(y/61.2)^(1.2)*pi*(7/2)))^(2/3)+abs(y/61.2)^(2/3)-1) * | |
| min(1-(x/32)^2-((y+30)/32)^2,1-((abs(x)+5)/22)^2-((y-18)/22)^2) * | |
| min(1-((abs(x)-18)/20)^2-((y+10)/20)^2,((abs(x)-20)/22)^2+((y+7)/20)^2-1) * | |
| (1-((abs(x)-51)/11)^2-(y/11)^2) | |
| } | |
| x <- seq(-150, 150, length=400) | |
| z <- outer(x,x, Vectorize(jibanyan_equation)) |
This is a demo of using rCharts to create a Leaflet map using KML. It requires you to install the latest dev branch of rCharts, which can be done using install_github("rCharts", "ramnathv", ref = "dev"). The code to reproduce this chart is shown below
# download kml example file
require(downloader)
download(
url = "http://harrywood.co.uk/maps/examples/leaflet/mapperz-kml-example.kml",
destfile = "mapperz-kml-example.kml"
)
| #include <LiquidCrystal.h> | |
| #include <NewRCS620S.h> | |
| #define COMMAND_TIMEOUT 400 | |
| #define POLLING_INTERVAL 500 | |
| #define LED_PIN 13 | |
| LiquidCrystal lcd(12, 11, 5, 4, 3, 2); | |
| NewRCS620S rcs620s; | |
| int waitCardReleased = 0; |