Skip to content

Fastai linalg 3 #11

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 4 commits into from
Dec 28, 2024
Merged

Fastai linalg 3 #11

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
5cd5014
numerical linear algebra - returning to the old way of displaying videos
daslu Dec 28, 2024
2f51029
typo
daslu Dec 28, 2024
07be0f6
numerical-linear-algebra - svd - using less frames for the analysis
daslu Dec 28, 2024
e9ad8b8
numerical-linear-algebra - svd - added the resulting video
daslu Dec 28, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
Binary file added projects/math/numerical-linalg/notebooks/generated-movie.mp4
View file
Open in desktop
Binary file not shown.
32 changes: 13 additions & 19 deletions projects/math/numerical-linalg/notebooks/svd.clj
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -32,19 +32,8 @@
(def video-path
"notebooks/movie/Video_003.mp4")

;; A conveneince function for displaying a video
;; in Quarto (till we handle this better in
;; an upcoming Clay release):
(defn video [path]
(kind/md
(str "{{"
\<
" video "
path
\>
"}}")))

(video video-path)
(kind/video
{:src video-path})

;; Let us explore it with clj-media:

Expand Down Expand Up @@ -118,12 +107,16 @@ first-image
image->small-tensor
bufimg/tensor->image)

;; Now let us collect the small tensors:
;; Now let us collect the small tensors.
;; We will take just 70 frames of the video,
;; simply because it is enough for demonstrating
;; the methods of this tutorial.

(def small-tensors
(into []
(map (comp image->small-tensor
clj-media.model/image))
(comp (take 70)
(map (comp image->small-tensor
clj-media.model/image)))
(clj-media/frames
(clj-media/file video-path)
:video
Expand Down Expand Up @@ -269,7 +262,7 @@ first-image
tensor-normalize
(dfn/* 255)
dtype/->int-array
(tensor/reshape [120 160 350])
(tensor/reshape [120 160 70])
(tensor/transpose [2 0 1])
(->> (mapv bufimg/tensor->image))))

Expand All @@ -296,7 +289,7 @@ first-image

(def generated-frames
(let [frame-rate 7
seconds 50
seconds 10
num-frames (* seconds frame-rate)]
(into []
(map-indexed (fn [pts image]
Expand All @@ -310,4 +303,5 @@ first-image
(clj-media/make-media frame-format generated-frames)
target-path)

(video target-path)
(kind/video
{:src target-path})
Loading