kill(all);

van=facebook.com/LearningCalculus$

AreaB : sqrt(3)/4;

AreaA(x):=abs(sqrt(-1+4*x^2)/2);

AreaA(1/2); /* Min Area where A does not exist */;

AreaA(sqrt(2)); /* Min Area where A is a square */;

AreaA(1/2)+AreaB; /* Min Area with no A */;

fullratsimp(AreaA(sqrt(2))+AreaB); /* Min Area Square A */;