Wolfram Video | Ejemplos a probar

Edite y ejecute cualquier pieza de código haciendo clic dentro del código y presionando
+
.
Análisis, edición y creación de videos. Capture, cree o calcule usando archivos de video mediante funciones de video excepcionalmente potentes y flexibles, basadas en capacidades de imágenes y audio altamente desarrolladas y perfectamente integradas con visualización y aprendizaje automático avanzados, y más.

Importe, edite y exporte

Importe un archivo de video:
Ejecutar
In[]:=
vid=Video["https://www.wolframcloud.com/obj/explore-wolfram/bird.mp4"]
Aplique un efecto en cada fotograma del video:
Ejecutar
In[]:=
sepiavid=VideoMap[ImageEffect[#Image,"Sepia"]&,vid]
Exporte el resultado en el formato de su elección:
Ejecutar
In[]:=
Export["sepiabird.mp4",sepiavid]

Cree video a partir de una imagen

Use detección de rostros para identificar las ubicaciones de los rostros en la imagen:
Ejecutar
In[]:=
img=
;
In[]:=
faces=FindFaces[img,PaddingSize->60];
Cree una lista de fotogramas clave clasificando las ubicaciones de los rostros de izquierda a derecha e incluya la imagen completa al principio y al final:
Ejecutar
In[]:=
path=Join[{Full},SortBy[faces,First@*First],{Full}];
Cree un video que recorra la imagen a lo largo de la ruta que especifique:
Ejecutar
In[]:=
TourVideo[img,path,DefaultDuration->12]

Edite video con efectos personalizados

Inicie con un clip de video:
Ejecutar
In[]:=
aerialvid=
;
Defina un efecto que se fundirá desde sepia a detalles mejorados a lo largo del clip:
Ejecutar
In[]:=
sepiaToEnhanced=Blend[{ImageEffect[#Image,"Sepia"],ImageEffect[#Image,"DetailEnhancing"]},#Time/4]&;
Aplique el efecto al video:
Ejecutar
In[]:=
VideoMap[sepiaToEnhanced,aerialvid]

Mejore y corrija colores

Este clip de video tiene un balance de color indeseable debido a la hora:
Ejecutar
In[]:=
trafficvid=
;
Cambie el balance de color con una referencia de temperatura especificada:
Ejecutar
VideoFrameMap[ColorBalance[#,
2500
K
]&,trafficvid]

Analice rostros

Este clip de video muestra una amplia variedad de reacciones faciales, las cuales sugieren una historia:
Ejecutar
In[]:=
reactvideo=
;
Cree un video que muestre puntos de referencia faciales:
Ejecutar
In[]:=
VideoMap[​​HighlightImage[​​#Image,​​{PointSize[0.01],FacialFeatures[#Image,"Landmarks"]},​​ImageLabels->None​​]&,​​reactvideo]
Agrupe las marcas de tiempo de los fotogramas según las emociones detectadas:
Ejecutar
In[]:=
emotiondata=GroupBy[​​VideoMapList[{#Time,FacialFeatures[#Image,"Emotion"][[1]]}&,reactvideo],​​Last,Map[First]];
Represente los resultados para ver la “historia”:
Ejecutar
In[]:=
NumberLinePlot[emotiondata,PlotLegends->Keys[emotiondata]]

Detecte y etiquete objetos

Comience con un video sin etiquetar:
Ejecutar
In[]:=
video=
;
Etiquete fotogramas de video resaltando objetos detectados:
Ejecutar
In[]:=
labledvideo=VideoFrameMap[​​HighlightImage[#,{Magenta,FaceForm[],ImageBoundingBoxes}]&,​​video]