# errors when open saved files

Michael Borcherds shared this problem 7 years ago

I think the problem still exists 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. 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. 1

post a .ggb file 1

okay here ya go

https://ggbm.at/562471 1

have i really stumped ya'll? just saying... 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? 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