Nice question Your videos on geometry question Always have an another concept Your videos on geometry question always give the better experience Keep going sir 👍
hi at least it was not a nested repeated calculation: 10 print "quant circle-not as easy as it looks-a challenging geometry problem" 20 dim x(2,2),y(2,2):l2=7:l3=5:l4=3:ym=0:sw=l4/67:goto 50 30 xa=sqr(l3^2-h^2):r=(sqr(l3^2-h^2)+sqr(l4^2-h^2))/2:l1=2*r 40 l5=2*r-xa:dgu1=sqr(l4^2-l5^2)/l2:dgu2=sqr(l2^2-l5^2)/l2:dg=dgu1+dgu2-1:return 50 h=sw:gosub 30 60 h1=h:dg1=dg:h=h+sw:if h>l4 then stop 70 h2=h:gosub 30:if dg1*dg>0 then 60 80 h=(h1+h2)/2:gosub 30:if dg1*dg>0 then h1=h else h2=h 90 if abs(dg)>1E-10 then 80:rem den tangentenpunkt berechnen 100 print "der radius=";r:xm=r:xt=sw:goto 130 110 yt=ym+sqr(r*r-(xt-xm)^2):dgu1=(xm-xt)*(2*r-xt)/r/r:dgu2=(ym-yt)*(l1-yt)/r/r 120 dg=dgu1+dgu2:return 130 gosub 110 140 xt1=xt:dg1=dg:xt=xt+sw:if xt>20*r then stop 150 xt2=xt:gosub 110:if dg1*dg>0 then 140 160 xt=(xt1+xt2)/2:gosub 110:if dg1*dg>0 then xt1=xt else xt2=xt 170 if abs(dg)>1E-10 then 160 180 masx=1200/2/r:masy=850/l1:if masx run in bbc basic sdl and hit ctrl tab to copy from the results window. you may add "@zoom%=1.4*@zoom%" at the beginning for the graphics display.
@@chaitanyachikki257Thank you so much for your kind words and support! I'm truly grateful to have amazing viewers like you who believe in this community. Your encouragement inspires me to keep creating valuable content. Keep staying connected!
Nice question
Your videos on geometry question
Always have an another concept
Your videos on geometry question always give the better experience
Keep going sir
👍
@@DhanushJoshi-u1r Thank you for this comment. I hope you continue to support me by watching my upcoming videos as well.
I am glad to know this 😊
Triangle area is totally redundant, all u need is cosine theorem, cos x = 1/ sq 2, done
Linda resolução! 🎉🎉🎉
Muito obrigado! Fico feliz que tenha gostado da solução. O seu apoio significa muito para mim!
Thank you for your support solve this problem
@@powerofSanatandharma you are welcome 🤗
hi at least it was not a nested repeated calculation:
10 print "quant circle-not as easy as it looks-a challenging geometry problem"
20 dim x(2,2),y(2,2):l2=7:l3=5:l4=3:ym=0:sw=l4/67:goto 50
30 xa=sqr(l3^2-h^2):r=(sqr(l3^2-h^2)+sqr(l4^2-h^2))/2:l1=2*r
40 l5=2*r-xa:dgu1=sqr(l4^2-l5^2)/l2:dgu2=sqr(l2^2-l5^2)/l2:dg=dgu1+dgu2-1:return
50 h=sw:gosub 30
60 h1=h:dg1=dg:h=h+sw:if h>l4 then stop
70 h2=h:gosub 30:if dg1*dg>0 then 60
80 h=(h1+h2)/2:gosub 30:if dg1*dg>0 then h1=h else h2=h
90 if abs(dg)>1E-10 then 80:rem den tangentenpunkt berechnen
100 print "der radius=";r:xm=r:xt=sw:goto 130
110 yt=ym+sqr(r*r-(xt-xm)^2):dgu1=(xm-xt)*(2*r-xt)/r/r:dgu2=(ym-yt)*(l1-yt)/r/r
120 dg=dgu1+dgu2:return
130 gosub 110
140 xt1=xt:dg1=dg:xt=xt+sw:if xt>20*r then stop
150 xt2=xt:gosub 110:if dg1*dg>0 then 140
160 xt=(xt1+xt2)/2:gosub 110:if dg1*dg>0 then xt1=xt else xt2=xt
170 if abs(dg)>1E-10 then 160
180 masx=1200/2/r:masy=850/l1:if masx
run in bbc basic sdl and hit ctrl tab to copy from the results window. you may add "@zoom%=1.4*@zoom%" at the beginning for the graphics display.
💫
👍
Thank you so much . I'm really glad you enjoyed the video. Your support means a lot and motivates me to keep creating content.
Keep supporting the community
@@chaitanyachikki257Thank you so much for your kind words and support! I'm truly grateful to have amazing viewers like you who believe in this community. Your encouragement inspires me to keep creating valuable content. Keep staying connected!