Сегодня скинул старые ремни с 3D принтера.
Запись от Hrethgir размещена 04.01.2023 в 20:55
Показов 2136
Комментарии 5
|
Завтра накину новые, тут спешить нельзя. Распечатаю корпус на свой теперь микрокомпьютер. Теперь я высвобожу 2 часа в сутки, на программирование сначала по алгоритму альтернативному свёрточным нейросетям, а там и дальше проблески были. Но сначала закончу с MNIST и свёрточными нейросетями, точнее с тем - чем собираюсь их заменить. Кстати в генераторе карт трассировок я доделал все недоработки, просто писал ещё код по гидродинамике. Вот код генератора скрин его работы. А это видосик - простуду на момент его съёмки не полнстью вылечил, поэтому немного хриплю. [YOUTUBE]bEns4ntpdF4[/YOUTUBE] код по генератору карт трассировок [SPOILER] [PASCAL]unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, Grids, StdCtrls, Math; type { TForm1 } TForm1 = class(TForm) Button1: TButton; Edit1: TEdit; StringGrid1: TStringGrid; procedure Button1Click(Sender: TObject); private public end; var Form1: TForm1; type tracerRec = record ix:integer; yg:integer; bool:boolean; end; var TtracerRec:tracerRec; Tracersloi: array of array of array of tracerRec; implementation {$R *.lfm} { TForm1 } procedure TForm1.Button1Click(Sender: TObject);///////////////////////////////////////////////////////////////////////////////////////////// procedure Step1; var p:pointer; y,step,stepF,s,x, sl, fi1, fi, ri1, ri, BasiY, MyCount:integer; px,py:^integer; FcountPix, countPix, FcountPix1, CaTanDegP:integer; CaTanDeg,TanDeg, deg:Extended; second_run:boolean; label l1,l2,l5,l6;//,l3,l4 begin deg:= StrToInt(Edit1.Text); step:=0; for s:=1 to 1 do begin TanDeg := Tan(DegToRad(deg)); if TanDeg = 0 then begin CaTanDeg:=28; CaTanDegP:=Trunc(CaTanDeg); px:=@x; py:=@y; FcountPix:=0; FcountPix1:=0; end else begin CaTanDeg:= 1/TanDeg; if CaTanDeg>=TanDeg then begin px:=@x; py:=@y; CaTanDegP:=Trunc(CaTanDeg); if CaTanDegP>28 then CaTanDegP:=27; end else begin px:=@y; py:=@x; CaTanDegP:=Trunc(CaTanDeg); if CaTanDegP>28 then CaTanDegP:=27; end; end; if CaTanDegP=0 then begin fi:=0; FcountPix:=0; FcountPix1:=0; end else begin fi:=Trunc(28 div CaTanDegP); FcountPix:=28-step*CaTanDegP; FcountPix1:=28-fi*CaTanDegP; end; stepF:=fi; fi1:= 27+fi; BasiY:=0; countPix:=0; repeat ri:=0; x:=27; y:=BasiY; step:=1; TtracerRec.bool:=true; second_run := true; p:=@l1; if BasiY>27 then begin step:= BasiY-27+1; x:=27-(step-1)*CaTanDegP; y:=27; ri:=0; end; repeat FcountPix:=28-(step*CaTanDegP); ri1:=BasiY-fi; if (FcountPix1>=1) then begin stepF:=fi; end; if ri1<0 then begin ri:= ri1*CaTanDegP+1; end; repeat StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');// StringGrid1.Cells[1+px^,1+py^]:= IntToStr(countPix);//StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');// TtracerRec.ix:=x; dec(x); inc(countPix); asm jmp p end; l1: TtracerRec.bool:=false; TtracerRec.yg:=y; p:=@l2; l2: TtracerRec.yg:=y; until FcountPix > x; dec(y); inc(step); until ((28-fi*CaTanDegP-ri)>x); if (FcountPix1>0) and (y>=0)then begin repeat StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');// StringGrid1.Cells[1+px^,1+py^]:= IntToStr(countPix); inc(countPix); TtracerRec.ix:=x; TtracerRec.yg:=y; dec(x); until 0 > x; end; if x = -1 then TtracerRec.ix:=0; inc(BasiY); until BasiY=fi1; if (FcountPix1>0) and (y>=0)then begin x:=FcountPix1-1; y:=27; TtracerRec.bool:=true; p:=@l5; repeat StringGrid1.Cells[1+px^,1+py^]:= IntToStr(TtracerRec.ix)+','+IntToStr(TtracerRec.yg) +','+BoolToStr(TtracerRec.bool, '1', '0');// StringGrid1.Cells[1+px^,1+py^]:= IntToStr(countPix); inc(countPix); TtracerRec.ix:=x; TtracerRec.yg:=y; dec(x); asm jmp p end; l5: TtracerRec.bool:=false; p:=@l6; l6: until 0 > x; end; end; end; begin Step1; end; end. [/PASCAL][/SPOILER] В общем пока так вот. |
Размещено в Без категории
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Всего комментариев 5
Комментарии
-
Никинул ремни. Завтра напечатаю корпус для Jetson Nano/Запись от Hrethgir размещена 05.01.2023 в 21:40 
-
Не напечатал, редактирую. В инете не нашёл интересных моделей для скачивания.
Запись от Hrethgir размещена 07.01.2023 в 22:55
-
Затягивается, так как прикол - вентилятор работает на нагнетание, и поэтому пришла идея не запускать тёплый воздух в корпус, а сделать эжектор. Поэтому редактирование немного затягивается. Но сегодня по любому напечатаю.
Запись от Hrethgir размещена 08.01.2023 в 14:12
-
Приготовил модель верхней части [url]https://3dtoday.ru/3d-models/gadgets/computers/verxnyaya-cast-korpusa-dlya-jetson-nano-v-kacestve-mini-pk[/url]
Запись от Hrethgir размещена 09.01.2023 в 20:39
-
уже давно напечатал если что, топик надо сделать про обдув
Запись от Hrethgir размещена 06.03.2023 в 15:02
