08,]']╠>iО}WЪмu╖Пp8╥d%qy)6o@БA╕ЖsОВРЙР┴²б┴l≥Dю?лллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlЛнллллллЛНллллллллЛнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlНнллллллНЛнлллллллНнлллллллл,"""бллллллллллллНnЛнллллллНннлллллллЛнлллллллл"л","лл юл юллю л ю юллл л л л юлллллллллlЛнллллллНлнлллллллЛнлллллллл"л","лл ллл ллл юл ллллюл ю ю ю юю юллл л ююлллллллллlННллллллЛНллллллллННлллллллл"лл,"лл юлл ю ю ю ююлюлюю юл юл ллллюлю люлююлллллллллlлллллллллллллллллллллллллллл"л","лл юлл ю ллюллю юлюлюю лю юлюююлюлюллююлллллллллgлллллллллглллллллллглллллллл"л","лл ллюлллю ю лллл ллюл л лл л ллл л юлллллллллgлллллллллглллллллллглллллллл"""""лл л юлллллллллgлллллллллглллллллллглллллллл,"""блллллллллллллgлллллллллглллллллллглллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллgлллллллллглллллллллглллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллГНННННННННННННННННННглллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллллнлНнллЛНнlллЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlffffffffffffffffffфллллллнЛнНЛНллНЛНнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfffffffffffфffffфfffллллллнЛНЛлллНнФнЛЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfфлlфлfфлlflfфлlflffллллллнЛнЛЛНЛнlЛнЛЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfлlfлflлlfflflфlflffллллллнлНнллЛННЛНнЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfлlfлflfлlflflфlflffллллллнлллллlфлЛнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfфлlфлfллffфfфлlфfffллллллнллллlфлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллffffffffffffffffffffллллллнлллlфллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlffffffffffffffffffфллллллнллlфлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллллнлlфллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллллнfфлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллллллЛННnлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллlfнлллЛнллнННлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллллллlфлнЛНнлллЛллЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллfфллнЛнЛЛнлнлЛНлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллллfллллнЛнЛЛнЛллНллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллfлллллнЛНнЛннллННнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллfллллллнЛнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлfлллллллнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл,lллллллллнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл"bffffffffфллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллл,лллллллллнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfлллллллллнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfлллллллллнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfллллллЛННнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfлллллллллнлллЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллfлллллллллнЛНнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллллнЛнЛЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlфллллллллнЛнЛЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллllфлллллллнЛНнЛнллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлlфллллллнЛнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллlфлллллнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллlфллллнлллллллллллллллллллллллллллллНлLDDтщщллллллллллллллллллллллллллллллллллэщщмллллллллллллллллллллллллллллллллллlллллlфлллнллллллллллллллллллллллллллллЛНллллнллщмлллллллллллллллллллллллллллллллщмлллллллллллллллллллллллллллллллллллллlлллллlфллнлллллллллллллллллллллллллллллНллллнлллэмлллллллллллллллллллллллллллллщлллллллллллллллллллллллллллллллллллллллlллллллlfлнлллллллллллллллллллллллллллллНллллнллллэллллллллллллллллллллллллллллэллллллллллллллллллл,"""""""""""""""бллллlллллллЛННнллллллллллллллллллллллллллллЛНнлллнлллллщллллллллллллллллллллллллллэмллллллллллллллллллл"л",""""""",""","ллллlлллллллллnФННлллЛнллнННлллллллллллллллллллллнллллллмлллллллллллллллллллллллллмлллллллллллллллллллл"л",бл,бл"б,"""л"ллллlлллллллллнlфНЛНнлллЛллЛнллллллллллллллллллллнллллллэмлллллллллллллллллллллллщллллллллллллллллллллл"л",л,"лб,лллблл,ллллlлллллллллнлЛnЛнЛЛнлнлЛНлллллллллллллллллллллнлллллллэлнлллллллллнлллллллллнэллллллллнллллллллллллл"л","л,л,"б,"""л"ллллlлллллллллнЛлНФнЛЛнЛллНллллллллллллллллллллллнллллллллмнлллллллллнлллллллллнмллллллллнллллллллллллл"бл"лл"бл"",""","ллллlлллллллллнлНнЛНнЛннллННнллллллллллллллллллллнллллллллэнлллллллллнлллллллллчлллллллллнллллллллллллл"""""""""""""""""ллллlлллллллллнлллЛнfлллллллллллллллллллллллНнLDDНННННННННННННННННМННННННННННННННННННННННнллллллллллллл,"""""""""""""""бллллlлллллллллнллллллfлллллллллллллллллллллЛнНлллнлллллллллнмлллллмллнллллллллмнлллллллллнллллллллллллллллллллллллллллллллллlлллллллллнлллллллфллллллллллллллллллллЛНЛлллнлллллллллнэлллллмллнлллллллэлнлллллллллнллллллллллллллллллллллллллллллллллlлллллллллнлллллллlллллллллллллллллллллЛнЛлллнлНнллллллллщлЛнлмллллллЛнлэмллЛННлллЛнлллНнлллллллллллллллллллллллллллллллlлллллллллнллллллллфллллллллллллллллллллНнлллнЛнНЛНлллллЛНнлллмлллЛНнлллмлллллНЛНнллллЛнНЛНлллллллллллллллллллллллллллллlлллллллллнллллллллlлллллллллллллллллллллллллнЛНЛлллллллЛнЛМнлмлллЛнЛЛнщлллллЛнЛнЛЛнллЛНЛлллллллллллллллллллллллллллллллlлллллллллнллллллллlлллллллллллллллллллллллллнЛнЛЛНлллллЛнЛЛнлмлллЛнЛЛчлллллЛлНЛнЛЛнллЛнЛЛНлллллллллллллллллллллллллллллlллллллЛННнлллллллллфллллллллллллллллллллллллнлНнлллллллЛНнЛчлмлллЛНнЛнллллллНнЛНнЛнлллНнлллллллллллллллллллллллллллллллlлллллллллллНнллЛНнлллЛнлллллллллллллллллллллнллллллллллЛнлллщблллЛнщмлллллллллЛнлллллллллллллллллллллллллллллллллллллллlллллллллллЛнНЛНллНЛНнлллллллллллллллллллллллнЛНнлллЛнллллЛЛН."щщэщщллллллллллллЛЛНнллЛНнлллЛнллллллллллллллллллллллллллlллллллллллЛНЛлллНнЛнЛЛнллллллллллллллллЛнLDDдллНЛНнллллллнллНбллмллллллллллллллнллНллллНЛНнллллллллллллллллллллллллллллlллллллллллЛнЛЛНЛнлЛнЛЛнллллллллллллллллНнлллллНнЛнЛЛнлллЛллНнлллллллллллллллллЛллНнлллНнЛнЛЛнллллллллллллллллллллллллллlлллллллллллНнллЛННЛНнЛнллллллллллллллНнЛнллэщщщщщщщщщщщщщщщщщщмлллллллллллллллнлЛнлллЛнлЛнЛЛнллллллллллллллллллллллллллlллллллллллллллллллЛнлллллллллллллллллллЛнллщщщщщщщщщщщмщщщщмщщщллллллллллллллЛллЛННллЛННЛНнЛнллллллллллллллллллллллллллlлллллллллллллллллллллллллллллллллллллллННллщмлэмлщмлэщэщмлэщэщщлллллллллллллллллллллллллЛнлллллллллллллллллллллллллллллlлллллллллллллллллллллллллллллллллллллллллллщлэщлщэлэщщэщэмэщэщщллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллллллллллллллллллллллллллллллллллллллщлэщлщэщлэщэщэмэщэщщллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллллллллллллллллллллллллллллллллллллллщмлэмлщллщщмщмлэмщщщллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллллллллллЛнллнННллллллллллллллллллллллллллщщщщщщщщщщщщщщщщщщщщллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллЛНнлллЛллЛнлллллллллллллллллллллллллэщщщщщщщщщщщщщщщщщщмллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллЛнЛЛнлнлЛНллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlлллллллЛнЛЛнЛллНлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллллллАНАнллННнлллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллллАалллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллlллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллллалlлллллллллллллллллллллллллНлLDDдллллллл≥≥≥≥илллллллллллллллллллллллллллллллллллллллллллллллlляMDDNDDалллллллллллллллллллллЛНллллнлллллл°лллл°лллллллллллллллллллллллллллллллллллллллллалалаааллlляяллллллллллллллллллллллНллллнллллл°иллллл≥ллллллллллллллллллллллллллллллллллллллллаалллаНlяяалллллллллллллллллллллНллллнлллллилллллллилллллллллллллллллллллллллллллллллллллллааллаалллНяллллллллллллллллллллЛНнлллнлллл°лллллллл°лллллллллллллллллллллллллллллллллллллллалллалалlНщщалллллллллллллллллллллллллнллллилллллллллилллллллллллллллллллллллллллллллллллллллlНалллллллллллллллллллллллллнллллилллллллллиллллллллллллллллллллллллллллллллллллллалaАялллллллллллллллллллллллллнллл°лллллллллл°ллллллллллллллллллллллллллллллллллллллллллллллллллллллллллaАяаллллллллллллллллллллллллнлллилллллллллллилллллллллллллллллллллллллллллллллллллллллллллллллллллллллaяАллллллллллллллллллллллллнлл°лллллллллллл°лллллллллллллллллллллллллллллллллллллллллллллллллллллллл,aяАНллллллллллллллллллллллллнллилллллллллллллиллллллллллллллллллллллллллллллллллллллллллллллллллллллл"aНяллллллллллллллллллллллллнллилллллллллллллбллллллллллллллллллллллллллллллллллллллллллллллллллллллл,1cН.аллллллллллллл≥≥≥≥≥≥≥≥≥≥·≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥)"≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥9cffffffff&▓≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥≥ллллллллллнлиллллллллллллллбилллллллллллллллллллллллллллллллллллллллллллллллллллллллл²13А.ялллллллллллллллллллллллнлиллллллллллллллиилллллллллллллллллллллллллллллллллллллллллллллллллллллллл²л3ААялллллллллллллллллллллллн°ллллллллнлллллли°лнлллллллллнлллллллллнлллллллллллллллллллллллллллллллллл≈лл!"Аялллллллллллллллллллллллниллллллллнллллллилинлллллллллнлллллллллнлллллллллллллллллллллллллллллллллл≈лл<3Аялллллллллллллллллллллллниллллллллнллллллилинлллллллллнлллллллллнлллллллллллллллллллллллллллллллллл≈ллцлл3Аяллллллллллллллллллллллл·лллллллллнллллллил°нлллллллллнлллллллллнлллллллллллллллллллллллллллллллЛнл≈л<лллл1АялНнллЛНнлллЛнлллллллллл·лллллллллнллллллил°нлллллллллнлллллллллнллллллллллллллллллллллллллллЛНнллл≈лцллллл<АЛнНЛНллНЛНнлллллллНнLDDНННННННННННННННННИННННННННННННННННННННННнллллллллллллллллллллллллллллЛнЛЛнл≈НЦНННННН>ЦНННННННННАНЛлллНнЛнЛЛнллллЛнНлллнлллллллллнллллллллл·лллллллллнлллллллл°нллллллллллллллллллллллллллллЛнЛЛнлg<ллллллллнлллллллллглЛнЛЛНЛнлЛнЛЛнллллЛНЛлллнлллллллллнллллллллл·лллллллллнлллллллл°нллллллллллллллллллллллллллллЛНнЛнлgцллллллллнллллллллэгллНнллЛННЛНнЛнллллЛнЛлллнлНнллллллнлллЛнллллниллЛнллллнЛННлллЛнинлНнлллллллллллллллллллллллллЛнлллл7лллллллллнллллллллэглллллллллЛнллллллллНнлллнЛнНЛНллллнЛНнллллллнЛНнллллллнллНЛНнл°лнЛнНЛНлллллллллллллллллллллллллллллcлллллллллнллллллллэгллллллллллллллллллллллллнЛНЛллллллнЛнЛЛнллллнЛнЛЛнллллнлЛнЛнЛЛ·лнЛНЛллллллллллллллллллллллллллллллxm and Mxym and Mysy then of=sy/sY elseif of*sY<-sy then of=-sy/sY end end for i=0,sx-1 do nf=f((i+1)*step) if nf==nf then if nf*sY>sy then nf=sy/sY elseif nf*sY<-sy then nf=-sy/sY end if of==of and not( abs(of*sY)>=abs(sy) and abs(nf*sY)>=abs(sy))then line(rx+i,H-(ry+sY*of),rx+(i+1),H-(ry+sY*nf),c)end end of=nf end rep_horiz(rx,ry,sx,sy,name) label(rx,ry-sY-3,name,c) line(rx+a*sx/pi2,H-ry, rx+a*sx/pi2,H-(ry+sY*f(a)),c) marker(rx+a*sx/pi2,ry+sY*f(a)) end function graph_trigov(rx,ry,sx,sy,a,f,name,c) local sX,sY=sx/2,sy/2 if c==nil then c=cs end local step=pi2/sy local of,nf=f(0*step) if of==of then if of*sX>sx then of=sx/sX elseif of*sX<-sx then of=-sx/sX end end for i=0,sy-1 do --function nf=f((i+1)*step) if nf==nf then if nf*sX>sx then nf=sx/sX elseif nf*sX<-sx then nf=-sx/sX end if of==of and not(abs(of*sX)>=abs(sx)and abs(nf*sX)>=abs(sx))then line(rx+sX*of,H-(ry-i),rx+sX*nf,H-(ry-(i+1)),c)end end of=nf end rep_verti(rx,ry,sx,sy,name) label(rx-sx-10,ry-3,name,c) line(rx,H-(ry-a*sy/pi2), rx+sX*f(a),H-(ry-a*sy/pi2),c) marker(rx+sX*f(a),ry-a*sy/pi2) end function graph_polar(rx,ry,sx,sy,r,a,name,fx,c1,fy,c2) local sX,sY=sx/2,sy/2 if a~=0 then local step=a/50 for i=0,a,step do tri(rx,H-ry, rx+sX*r*fx(i),H-(ry+sY*r*fy(i)), rx+sX*r*fx(i+step),H-(ry+sY*r*fy(i+step)),ca) end end -- round base step=pi/20 for i=0,pi*2,step do line(rx+sX*cos(i),H-(ry+sY*sin(i)), rx+sX*cos(i+step),H-(ry+sY*sin(i+step)),cs)end -- R angle step=a/20 local h=r/3 if a~=0 then for i=0,a,step do line(rx+sX*h*fx(i),H-(ry+sY*h*fy(i)), rx+sX*h*fx(i+step),H-(ry+sY*h*fy(i+step)),14)end end -- screen wide lines line(0,H-(ry+sY*fy(a)),240,H-(ry+sY*fy(a)),c2) line(rx+sX*fx(a),0,rx+sX*fx(a),136,c1) rep_polar(rx,ry,sx,sy,name) -- label value -- local x1,x2= line(rx+sX*h*fx(a/2),H-(ry+sY*h*fy(a/2)), rx-sX-2,H-53,14) circ(rx+sX*h*fx(a/2),H-(ry+sY*h*fy(a/2)),1,2) -- label a label(rx-sX-40,ry+sY,name,ca) if c1~=nil then line(rx,H-(ry+sY*fy(a)), rx+sX*fx(a),H-(ry+sY*fy(a)),c1) end if c2~=nil then line(rx+sX*fx(a),H-ry, rx+sX*fx(a),H-(ry+sY*fy(a)),c2) end line(rx,H-ry,rx+sX*r*fx(a),H-(ry+sY*r*fy(a)),3) -- label R line(rx+sX*r/2*fx(a),H-(ry+sY*r/2*fy(a)), rx-sX-8,H-22,3) label(rx-sX-36,25,strfmt("R=%.1f",l),3) circ(rx+sX*r/2*fx(a),H-(ry+sY*r/2*fy(a)),1,2) line(rx+sX*cos(-p14),H-(ry+sY*sin(-p14)), rx+sX+5,H-22,cr) label(rx+sX+5,25,"1",cr) marker(rx+sX*r*fx(a),ry+sY*r*fy(a)) end function cosin(a) return cos(a)+sin(a) end function cos_pi(a) return cos(a-p12) end function show() label(5,132,strfmt("a=%.2f rad (%3.2f deg)\n",phi,phi*180/pi),0) -- label(5,112,strfmt("x=R.cos(a)=%.2f*%.2f=%.2f",l,cos(phi),l*cos(phi)),6) -- label(5,102,strfmt("y=R.sin(a)=%.2f*%.2f=%.2f",l,sin(phi),l*sin(phi)),9) local x,y=130,50 label(x,H-y,"Use ",cm) spr(0,x+18,y-1,0)spr(0,x+23,y-1,0,1,1) --l=sin(phi) graph_polar(190,35,40,40,l,phi,strfmt("a=%.2f",phi),cos,6,sin,9) if lesson==0 then -- graph_trigov(175+20,124,40,50,phi,tan,"xtan(a)",2) graph_trigov(190,124,40,50,phi,cos,"cos(a)",6) graph_trigo(20,80,80,20,phi,cos,"cos(a)") -- graph_trigo(20,90,80,40,phi,tan,"x=tan(a)") elseif lesson==1 then graph_trigov(190,124,40,50,phi,cos,"cos(a)",6) graph_trigo(20,80,80,20,phi,cos_pi,"cos(a-pi/2)") end graph_trigo(20,35,80,40,phi,sin,"sin(a)",9) label(230,133,"H",2) end function help() local ox,oy,sx,sy=30,20,160,100 box(ox,oy,sx,sy,"Help",12) print(strfmt("Use (SI) rad to compute\nand avoid conversion\n\n 180\n1 deg=---rad\n Pi\n\n Pi\n1 rad=---deg\n 180"),ox+5,oy+5,0,true) label(ox+5,oy+10,strfmt("pi=%.8f",pi),9) if clickbox(ox+sx-5,H-(oy+sy+5),ox+sx+5,H-(oy+sy-5)) then mode=oldmode end end phi=0 lesson=0 mode="show" oldmode=mode l=1 Mx,My,Ml,Mm,Mr,Msx,Msy={} function TIC() Mx,My,Ml,Mm,Mr,Msx,Msy=mouse() if btn(0) and l<1.95 then l=l+0.05 end if btn(1) and l>0.05 then l=l-0.05 end local tphi=phi*100%157 if btn(2) then if tphi<10 or tphi>147 then phi=phi-0.01 else phi=phi-0.05 end if phi<0 then phi=0 end end if btn(3) then if tphi<10 or tphi>147 then phi=phi+0.005 else phi=phi+0.05 end if phi>pi2 then phi=pi2 end end if btnp(4) then lesson=(lesson+1)%2 end if btnp(5) then if mode=="show"then oldmode=mode mode="help"else mode=oldmode end end cls(cb) if clickbox(230,0,240,10) and mode=="show"then oldmode=mode mode="help"end -- if mode=="show" then show() if mode=="help" then help()end t=t+1 end