guilespi

Might also be the dv163 P1: http://help.dvr163.com/index.php/P1

Based on Ankya AK3918 HD IP Camera SoC http://caxapa.ru/thumbs/914089/ak3818ds.pdf http://caxapa.ru/thumbs/914089/ak3818ds.pdf

Firmware => Telnet/FTP

Check/download latest firmware (site blocked for malware in Chrome/Firefox) http://42.96.185.60:8088/XVR/common/checkCommonUpdate.php?DevModel=IPCAM&SWVersion=1.4.47.0&DeviceSN=F2731110583936&ODMNum=391802&FirmwareMagic=SlVBTiBJUENBTSBGSVJNV0FSRSBERVNJR05FRCBCWSBMQVc=&Release=1&app_version=2.3.13 Response:

guilespi

(defmethod validation/valid-field? :document-MX
  [{value :value}]
  (let [match (re-find #"(?i)(^[a-z]{2})([a-z])([a-z])(\d{6})(H|M)([a-z]{2})([a-z]{3})(\d{2})$" value)]
    match))

(defmethod validation/valid-field? :document-UY
  [{value :value}]
  (when-let [[_ number digit] (re-find #"^(\d{7})-(\d)$" value)]
    (let [m [2 9 8 7 6 3 4]
          c (map #(utils/str->int (str %)) number)

guilespi

;; Datomic example code
(use '[datomic.api :only (db q) :as d])

;; ?answer binds a scalar
(q '[:find ?answer :in ?answer]
   42)

;; of course you can bind more than one of anything
(q '[:find ?last ?first :in ?last ?first]
   "Doe" "John")

guilespi

(defn validate-mappings
  "Validates each mapped import is for an
   existent field in the specified company"
  [fields headers mappings]
  (letfn [(found? [list element] (< (.indexOf list element) 0))]
    (filter (fn [[header field]]
              (or (found? headers header)
                  (found? fields field)))
            mappings)))

guilespi

Datomic pro with Postgresql Setup

Prep

• Get evaluation license key : http://my.datomic.com/eval/request
• Download pro version : http://downloads.datomic.com/pro.html

Setups

1. Dev mode setup

guilespi

(def conv-table (sorted-map 1 :I
                            4 :IV
                            5 :V
                            9 :IX
                            10 :X
                            40 :XL
                            50 :L
                            90 :XC
                            100 :C
                            400 :CD

guilespi

  
(defn maybe-word
  [s]
  (if (= "" s) [] [s]))

(defprotocol WordState 
  (append-chunk [this chunk] "Append a chunk to current word state")
  (append-segment [this segment] "Append a segment to current word state")
  (to-word-list [this] "Returns the state as a list of words"))

guilespi

library(ggplot2)
library(reshape2)
results <- read.csv("/Users/guilespi/Downloads/practico 3 - datos - mutagenesis.csv")
results$NroGrupo <- paste(results$Grupo, ".", results$Subgrupo)

timedMeasures <- melt(results, id.vars = c("Grupo", "Subgrupo", "NroGrupo", "Hongo", "Distancia", "Potencia"), value.name="Colonias", variable.name="Tiempo")
ggplot(timedMeasures, aes(x = Tiempo, y = Colonias, colour = NroGrupo)) + geom_line(aes(group = NroGrupo))

results$sobrevida <- (results$t5 / results$t0) * 100
ggplot(data=results, aes(x=NroGrupo, y=sobrevida, fill=Potencia)) +

guilespi

(defn analisis1
  [students approval-rate]
  (let [total (count students)
        expected-approvals (* total approval-rate)]
    (loop [examined students iterations 0]
      (let [remaining (- total (count examined))]
        (if (< remaining expected-approvals)
          (let [approved (* (count examined) 0.1)]
            (recur (drop (int approved) examined) (inc iterations)))

guilespi

<?php
  //Main script settings
	$CALL_ERROR_MSG = "Sorry, but I could not connect your call. Please try again later";
	
	$ALT_CALLER_ID = "";

	if (substr($CALLER_ID, 0, 3)=="011") {
		$CALLER_ID = "00" . substr($CALLER_ID, 3);
	}