Embryonic Cleavage

Download PDF
7 downloads 0 Views 1MB Size Report
Comment
SubFirst[c_, d1_, {Rx1_, Ry1_, Rz1_}, {Tx1_, Ty1_, Tz1_}] := (CELL[[c]] = Translate[Rotate[CELL[[c]], d1 Degree, {Rx1, Ry1, Rz1}], {Tx1, Ty1, Tz1}]).
Embryonic Cleavage BKCELL = CELL = Range@1, 32D; Progeny@1D = 82, 3, 5, 9, 17