quantified.uncertainty/squiggle
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tweak: Add to dos to continue tomorrow

Browse Source
This commit is contained in:
NunoSempere 2022-09-04 20:07:10 +02:00
parent f82c00a6ed
commit b292a3e6fd
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
packages/squiggle-lang/src/rescript/FunctionRegistry/Library/FR_Danger.res
View File

@ -61,7 +61,7 @@ module Internals = {
let choose = ((n, k)) => factorial(n) /. (factorial(n -. k) *. factorial(k)) let choose = ((n, k)) => factorial(n) /. (factorial(n -. k) *. factorial(k))
let pow = (base, exp) => Js.Math.pow_float(~base, ~exp) let pow = (base, exp) => Js.Math.pow_float(~base, ~exp)
let binomial = ((n, k, p)) => choose((n, k)) *. pow(p, k) *. pow(1.0 -. p, n -. k) let binomial = ((n, k, p)) => choose((n, k)) *. pow(p, k) *. pow(1.0 -. p, n -. k)
let applyFunctionAtPoint = (aLambda, internalNumber: internalExpressionValue, environment , reducer): result< let applyFunctionAtPoint = (aLambda, internalNumber: internalExpressionValue, environment, reducer): result<
ReducerInterface_InternalExpressionValue.t, ReducerInterface_InternalExpressionValue.t,
Reducer_ErrorValue.errorValue, Reducer_ErrorValue.errorValue,
> => { > => {
@ -75,8 +75,13 @@ module Internals = {
result result
} }
let internalZero = ReducerInterface_InternalExpressionValue.IEvNumber(0.0) let internalZero = ReducerInterface_InternalExpressionValue.IEvNumber(0.0)
let applyFunctionAtZero = (aLambda) => applyFunctionAtPoint(aLambda, internalZero) let applyFunctionAtZero = (aLambda,environment , reducer) => applyFunctionAtPoint(aLambda, internalZero, environment, reducer)
let applyFunctionAtFloat = (aLambda, point, environment, reducer) => applyFunctionAtPoint(aLambda, ReducerInterface_InternalExpressionValue.IEvNumber(point))
let integrateFunction = (aLambda, min:float, max:float, increment, environment, reducer) => {
// Should be easy, but tired today.
0.0
}
let getDiminishingMarginalReturnsEquilibrium = "To do"
} }
let library = [ let library = [
@ -137,7 +142,7 @@ let library = [
~examples=[`Danger.applyFunctionAtZero({|x| x+1})`], ~examples=[`Danger.applyFunctionAtZero({|x| x+1})`],
~definitions=[ ~definitions=[
FnDefinition.make( FnDefinition.make(
~name="applyFunctionAtPoint", ~name="applyFunctionAtZero",
~inputs=[FRTypeLambda], ~inputs=[FRTypeLambda],
~run=(inputs, _, env, reducer) => ~run=(inputs, _, env, reducer) =>
switch inputs { switch inputs {