Tag Info

Hot answers tagged

4

Evaluate the integral once and for all (cf. cdfc): cdfc[k_] = Integrate[PDF[NormalDistribution[0, 1], y], {y, k, Infinity}]; TCJS[T_, k_] := A/T + c1[T]*d1*T + h1*((d1*T)/2 + k*σ1*Sqrt[T + 1]) + (b1/T)*σ1* Sqrt[T + L1]*(PDF[NormalDistribution[0, 1], k] - k*cdfc[k]); EQ1[T_] := (k*σ1*h1)/(2*Sqrt[T + L1]) - ((b1*σ1)/ ...


3

I can think of two approaches if all you have are function values, (1) fitting a smooth a model to your data, and (2) estimating the derivatives using finite differences and incorporating those estimates in an interpolating function. The first requires some insight into potential target models, about which none has been given. So I'll show the second ...


1

Give TableForm[ Table[Which[f[x, y] <= 0, "f<0", 0 < f[x, y] < 2, "0<f<2", True, "f>2"], {x, 0, 1, 0.5}, {y, 0, 1, 0.5}], TableHeadings -> {{"", y, ""}, {"", x, ""}}] a whirl (I did not correct the inconsistent test vs output, btw...) This is corrected, generates example: TableForm[ Table[Which[f[x, y] < 0, "f<0", 0 <= ...


1

Not necessarily elegant or optimal, but this seems to work: hdr = {"Serial Nr.", "Product", "Value", "%", "Ranking"}; serial = Range[Length[product]]; value = {5, 10, 40, 20}; percent = 100 N[value/Total[value]]; rank = value /. Thread[# -> Ordering[#, All, Greater]] &@Union@value; data = Transpose[{serial, product, value, percent, rank}]; sorted = ...


1

To illustrate the point made in my recent comment, gpap is correct that f = Interpolation[Table[{x, Sin@x}, {x, 0, 2 Pi, 2 Pi/100}], InterpolationOrder -> 2]; g[x_] := f''[x]/f[x]; Plot[{f[x], g[x]}, {x, 0, 2 Pi}] does not give a well behaved expression for g[x]. However, using f = Interpolation[Table[{x, Sin@x}, {x, 0, 2 Pi, 2 Pi/100}], ...


1

You can use GridBoxOptions and set GridBoxAlignment via the Options Inspector. (See also tutorial/OptionsForExpressionInputAndOutput -- documentation is scarce.) To set all items to be aligned left, GridBoxAlignment should be set to GridBoxAlignment -> {"Columns" -> {{Left}}} (Enter {"Columns" -> {{Left}}} in Value column for the option ...


1

It is just ListPlot[Flatten[data], Joined -> True, PlotStyle -> {Black, Dashed}, PlotRange -> All, DataRange -> {0, 1000}, Frame -> True, FrameLabel -> {"Zone", "Force"}] EDIT: Oh like it was mentioned in the comments. :)



Only top voted, non community-wiki answers of a minimum length are eligible