|
|
clear; clc; close all;
* N* `# E) O- vsyms t alpha real! g# O( J4 O U. y- P0 z
syms theta(t)* G7 l$ j% ]+ Z) U: G4 [! J" q" Y
theta = (t^(-alpha) - 1)/alpha;
* ~* ~, t: `, ?6 t, p3 d' @Dtheta = diff( theta, t );
; W+ d i* w9 `3 ^tau = 4*int( theta/Dtheta, t, 0, 1 ) + 1;
4 ~& t1 ^; h) ^Alpha = solve([tau == 6/2457 ],[ alpha ]): R' g: Z0 l/ V; N
RHS_LHS = 4*int( ( (t^(-Alpha) - 1)/Alpha )/diff( ( (t^(-Alpha) - 1)/Alpha ), t ), t, 0, 1 ) + 1 - 6/2457
" p" K, o$ O8 w: l W
3 |5 _) g) f) L* S: }) W4 A! P1 ^Alpha =
( d, r0 R! s. K5 U: B$ @4/817
' T4 W" \ p' v; ?. [ C5 O& w
RHS_LHS =! {9 {# P; d' ^% g8 I% T
0 |
|