SHARE
TWEET

Untitled

a guest Apr 21st, 2017 50 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
Pastebin PRO Summer Special!
Get 40% OFF on Pastebin PRO accounts!
Top