errors when open saved files

Michael Borcherds shared this problem 6 years ago
Answered

I think the problem still exists


Please explain your problem clearly and post a .ggb file

Comments (7)

photo
1

Here are the steps to take inorder to reproduce this error. (Posting the .ggb file would be pointless)


f(x) = cos(x)


g(x) = 1 / 4 (2x - (-1)^(x) + 1)


a : y = x


M_n(x) = f(x)/sqrt(f'(x)^2+1)*( (1-sqrt(f'(x)^2+1))/f'(x) +f'(x) )


b : Curve[M_n(t)+t,-1/f'(t)*M_n(t)+f(t),t,0,pi/2]


T_n(h,k,x)= h - M_n(x) + sqrt( (h-M_n(x))^2 - ( h-2k/f'(x) - M_n(x))^2 + (h-2k/f'(x))^2 -h^2 + 4k*f(x) )


N = 5


n = slider[1,169,1]


Execute[ Join[ {" O_{1}= (0,1/2)" , "O_{2} = b(Intersect[T_n(O_{1}*(1,0),O_{1}*(0,1),x),a,(1,1)] *(1,0))"} , sequence[" O_{" + (i+2) + "} =b( Intersect[T_n( O_{"+(i+1) +"}*(1,0), O_{"+(i+1)+"}*(0,1),x),a,(pi/2,pi/2)]*(1,0))",i,1,N]]]


O_n = {O_{1}, O_{2},O_{3},O_{4},O_{5},O_{6},O_{7}}


Numel = {1,2,3,4,5,6,7,7,6,5,4,3,2}


modulo13(x) = x - 13floor((x - 1) / 13)


L = {1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0}


PIE = Join[{{0, 0, 0, 0, 0, 0, 0}, Sequence[Element[L, modulo13(t)], t, 1, n]}]


shift = Sort[Join[{Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[floor(n / 2)], {0, 0, 0, 0, 0, 0, 0}}]]


circle[ (element[shift,n] *pi + ((-1)^element[PIE,n] , 0 )*Element[O_n,element[Numel,modulo13(n)]] , Element[O_n,element[Numel,modulo13(n)]] * ( 0, (-1)^element[shift,n] ) ) , Element[O_n,element[Numel,modulo13(n)]]*(0,1) ]


copy and paste code line by line... works fine...save and close... re-open and data that was previously defined is now not.

photo
1

pretty interesting stuff huh? please I took a long time to develop this, and i understand if it may take a long time to get it working...just allow me to know the gravity of the situation.

photo
1

post a .ggb file

photo
1

okay here ya go

https://ggbm.at/562471

photo
1

have i really stumped ya'll? just saying...

photo
1

Hello? I am still interested in having this .ggb file do what its supposed to and save all the awesome stuff i worked so hard to create. Anyone got any solutions?

photo
1

Try redefining

    shift=Sort[Join[{Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[floor(n / 2)], {0, 0, 0, 0, 0, 0, 0}}]]


as

    shift=Sort[Join[{Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[g(t), t, 1, n], Sequence[i,i,1,floor(n / 2)], {0, 0, 0, 0, 0, 0, 0}}]]


(there's a bug with the Sequence[n] syntax which we need to fix)

https://ggbm.at/1743751

© 2019 International GeoGebra Institute