rodrigovidal

let euler1 (limit : int64) =
    let limit = bigint (limit-1L)
    let sn a1 = 
        let a1 = bigint (int a1)
        let an = (limit / a1 * a1)
        let n = an / a1
        (an + a1) * n / 2I
    sn 3 + sn 5 - sn 15

rodrigovidal

function steepest
% Exemplo 6.2-2 do livro Optimal Control Theory de D.E.Kirk
% Steepest Descent Method

eps = 1e-3;
options = odeset('RelTol', 1e-4, 'AbsTol',[1e-4 1e-4]); %permite ajustar os parametros de integracao para os solvers de EDOs
t0 = 0; 
tf = 0.78;
R = 0.1;
step = 0.4;

rodrigovidal

module Ast =

    type Node =
        | Int of int option
        | Float of float option
        | BooleanNode of bool option
        | StringNode of string option
        | QuotedVariable of string
        | Variable of string
        | Addition of Node * Node

rodrigovidal

////Isso funciona..
            var parametros = new[]
                                 {
                                     new OracleParameter("P_CD_CLIENTE", OracleDbType.Int32)
                                         { Direction = ParameterDirection.Input, Value = null },
                                     new OracleParameter("C_CURSOR", OracleDbType.RefCursor)
                                         { Direction = ParameterDirection.Output }
                                 };

////Isso não funciona..

rodrigovidal

http://sist.sysu.edu.cn/~isslxm/DSA/textbook/Skiena.-.TheAlgorithmDesignManual.pdf

https://github.com/felipecruz/cdats

http://www.amazon.com/Algorithms-Unlocked-Thomas-H-Cormen/dp/0262518805/ref=sr_1_2?ie=UTF8&qid=1372518782&sr=8-2&keywords=cormen 

http://www.amazon.com/Introduction-Algorithms-Thomas-H-Cormen/dp/0262033844/ref=sr_1_1?ie=UTF8&qid=1372518782&sr=8-1&keywords=cormen

https://sites.google.com/site/stevenhalim/