• API
• FAQ
• Tools
• Trends
• Archive
daily pastebin goal
35%
SHARE
TWEET

# Untitled

a guest Apr 21st, 2017 51 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
1. B[t_, n_, i_] := Binomial[2, i]*(1 - t)^(n - i) *t^i
2. c[t_, p_, w_] :=
3.  Sum[B[t, 2, i]*w[[i + 1]]*p[[i + 1]], {i, 0, 2}]/
4.   Sum[B[t, 2, i]*w[[i + 1]], {i, 0, 2}] (*Kegelschnittbogen*)
5.
6. w := {1, w1, 1}; (*Gewichtung*)
7. p := {{p1x, p1y}, {p2x, p2y}, {p3x,
8.    p3y}}; (*Punkt 0 bis 2 bzw 1 bis 3*)
9.
10. SP := {p[[1]][[1]], p[[1]][[2]], p[[2]][[1]], p[[2]][[2]],
11.   p[[3]][[1]], p[[3]][[2]], w[[2]]}; (*SP1=p1x... parameter von c*)
12. dSp = Array[dSP, 7];
13.
14. vcj[t_, p_, w_] := Sum[D[c[t, p, w], SP[[i]]]*dSp[[i]], {i, 1, 7}]
15.
16. wb := {1, wb1, 1}; (*beispiel*)
17. wb1 := 0.4;
18. pb := {{1531.9634703196348, 750.4383561643833}, {1000,
19.     1400}, {77.85388127853881, 687.6529680365294}};
20.
21. vcj[t, p, w]
22. vcj[t, pb, wb]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.

Top